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CARACTERISTIOtt TECNICAS: 

* 16 K bytes de memorla Intd^ti 

* Expan ta-o Interna para 32 e 
4a K bytes 

» 8 K bytes de memorla EPROM 

* Mkroprotesiidor Z-SOA 

* Teclado de membrana com 
acao mecinlca posltlva 

* 40 tecfas e 1 54 funfoes 

f Bask e lingua gem de maquJna 

* Video normal ou reverse 

* Saida para qualquer I m pressor a 

* Martlpufa ate quatro cassetes 
com geracao de arquivo 

* Modem 

* Joystick 

* Speed Fi le 

■ rente de ailment acao 
embutida J 110/220 voMsf 

* Nivel de ieftura de grava^ao 
aufofnatloo 



O Mrcroco input ador AS-1000 
e uma otima escofha para quem esta 
iniciando na ciencia da computacao. Seus 
recurs os de programacao e sua concepcao 
modular, porem, permitem que eJe 
o acompanhe ate as aplicacoes ma is 
sofisticadas. 

O AS-1000 ja nasce com uma biblioteca de 
milhares de programas para jogos, 
administracao domestica, aplicacoes 
comerciais e proffssfonais. 

O AS-1000 e fabricado com a quaff dade 
ENGEBRAS e garantido por um ana 

Entre na era da Informatka com a escofha 
cert a. AS-1000, o seu micro pessoaf. 

Escreva-nos. sua eorreiponderici* nxo fic^r^ sem r«poit^. 



C3 ENGEBRAS 

ELETRONICA E informatica ltoa. 



Hua do Russel; 450 - Jf andar 
Cep 22210 Rio de Janeiro - RJ 
Tel.: (0211 205-4898 



AS-1000 

o micro que cresce com voce 
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Contas a Pagar para Cooperativas ini . 
Contas a Receber 9 ml! L 

Contas a Receoer com 
Controle de Contratos H UO 1 

Contas a Receber Industrie- I wi^d 
com Emissao de Duplscatas H Qf" 

Contas a Receber para Dis- | 
tribuidores de Medicamentos hi 

Contas a Receber oara Coo- ij 
perativas i 

Contas a Receber * Radiotogia H 
Controle de Condominio e i 
AluguSis j 

Controls deConsorcios 
Controle de Contribuintes 
Control ede Estoque 
Controle deEstooue 
Comercia) 

Controle de Estoque 
oaraComfcrcio de 
Pneus 

t Controle de 

\ ■’ MS > 



Administragao e Controle de Repre- 
sentagao de Terceiros 

Administragao deAlugueis 
Administragao de Condominios 
Administragao de Construtoras 

Administragao de Loteamentos e 
ImOveis 

Admi n istragao de Trans oortadoras 
Administragao Hospitalar 
Apuragao de Gusto por Curva de Ser- 
vices UNIMED 

Arnwens Gerais 
Arrecadagao Tributeria 
Ativo Fixo 

Ativo Fixo com Corregao Anuai em 
Cruzeiros, Dblarese QRTNs 

Ativo Fixo com Corregao Mensal, Tri- 
mestral e Semestral em ORTNs 

Business Calc 

Cadastramento e Gustos de Equipa- 
mentoe 

Cadastramento 

J^^Bc ^ Genbrico 

BB Jm Caraode 

Create 

fel HJg ri ^ J) C 



Cobranga B| 1 ^ 

Consbrcio 1 

Conta-Corrente e Contabilidade \ 
Integrada \ 

Contabilidade ^ 

Contabilidade com Fechamento Au- 
tomatico em Cruzeiros e Dbfares 

Contablidade com Multivolume / 
Contabilidade com Orgamento / 

Contabi lid ade com Resu itados / 
Operational / 

Contabilidade Comercial ( 

Contabilidade Especial v m 

Contabilidade Geras ^ 

Contablidade Geral oara Pequenas 
Empresas 

Contabilidade Gerencia: 

Contabi iidade para Bureau 
Contabilidade para Cooperatives 

Contabilidade para Entidadesde Pre- 
videncia Privada 
Contabilidade para Escntonos 

Contabilidade para ^ 

UsinadeAgucar 

Contabilidade 

Publics ‘ "'-ri 

Contas a Pagar WfX\\\i 

Contas a Pagar para v '\ y. ^ 

Construtoras 



J 1 Control ede Estoque -D is tn- 
f buidores de Medicamentos 

Controle de Estoque-Revende 
dores 

Controle de Estoque-Varep 

Controse de For necimento de 
Cana por Peso 

Controle de ProdutividadedeCana 
Controle de Materials ^ 

"J^B 

Controle dePedidos 
Controle de 
Gusto de 

Obras ^ 



quertrabalharna 



anterior nas seguintes 
fungdes: A 




Controle de Recebimen- 
toSindical 

Cantrotede 
Registra 
Acad err ico 

Controle 
axas de Agua 
eEsgoto 

Controle deTHuios 
e Protestos - 
Cartbrio 

Controle de Trate- 
gos- Faturamento 
e Estatisticade 
Linhas 



Controle do Ativo 



Controle Financeiro Escolar 



Controle Imobifiario 

Controle Industrial para Montadoras 
porCompra 

Controle Monetary de Baiangos em 
ORTN 

Controle oara Distributors de Gas 
Engarrafado 

Corregao Oeoreciagao do Ativo 
Corregao Monetaria dos Baiangos 



CorretorasdeSeguro 

Crediario 



Custo Industrial de fiagoes 
Des pachoAduaneiro 

Distribuidores: Compras. Contas a 
Pagar. Estoque. Faturamento, Contas 
a Receber e Estatistica de Vendas 



Disinbuidoras de Bebidas (Fatura- 
mento. Controle e Estoque) 



Editex - Processamento de Texto 
Emissao de Carnes 



Emissao deNotas Promissc-rias. Bor- 
deros. Cartas de Debito 



Estoque para fndustria e Comerco 




Estoque para Cooperativas 
Eliqueta Farmaceut ica 

Faturamento para ComercHD e 
Industria 

Faturamento oara Comercio, 
IndustnaeServigos 

Faturamento e Controle de 

Faturamento e Distribui- 
de Produlos Farma- 



Faturamento de Cana 




Faturamento Industrial 

Faturamento para 
Cooperativas 

Faturamento. Esto 
que e Lista de Produgao 

Faturamento. Estoque e Vendas 
(Comercio Varetista) w 

Faturamento. Livros Fiscais e Rela- 
torios Gerenciais 
Foihade Pagamento 
Folha de Pagamento Gerai 

Folha de Pagamento Geral oara 
Comercio, Industria e Servigos 

Fotha de Pagamento para 
Bureau 

Folha de Pagamento Mensal 
eGuinzenal 

Fotha de Pagamento Semanal 
Folha de Pagamento Semanal para 
Construtoras 

Foitia de Pagamento para Empresas 
deOnibus 

Folha de Pagamento Semanal para 
Usinas deAgucar 
Fo ha de Pagamento Semanal para 
Usinas de Alcool 

GestaodePessoal 

Gestao de Vendas Integrada e Estoque 

Gestao financeira 

Gestao Hipotecaria 

Inventano para Editoras 

IPTU 

Livros Fiscais 
Livros Fiscais de Entrada 



Ragao de Custo Mfnimo 
Sistema 
Operacional 
Vector 
Transporte. 

Estes programas 
aplicativos do Cobra 305 sao aesen - 
volvidose garantidos pelas,seguintes 
4 software houses PRO-LOGOS. 

GTS. APL, DATA 100. 
CONSIST. PIONE1RA. SOFT. 
COMPUTEL. DATAMEC. 
PLACOM.IMS 
COMPACT. tMPLAISfTA, 
DATA PUN. INFEL, 
INFORCOMP. NM 
FLUXO, APRODATA, MPN. 
SIMICRON. DAT AM ED. SUPUUS. 
SMAR-APD. GDA, DATA- ELO. COPPE. 
BACKUP, SICOM MIS. MINI-MICRO 
e JOTO 

Para maiores infomnagbes sabre o 
Cobra 305, liguepara 
Rio de Janeiro -Te (021)265-7552 
S. Paulo -Te : (011)826-8555 
Bras ; lia-Te ! (061)273.1060 
B. Horizonte - Tel (031 ) 225-4955 
Curitiba - Tel. (041 ) 234-0295 
Fionanbpoiis-Tel (048)222-0588 
Porto Alegre - Tel .. (051 2) 32-7 1 1 1 
Salvador -Tei.. (071)241-5355 
Recife -Tel (001)22243311 
Fortaleza -Tel (085)224-3255 





Livros Fiscais de Saida 
Livros Fiscais para Bureau 
Uvros Fiscais para 
Cooperativas 
MalaDireta 

Mala Direta Assinanies 
e Reembolso Postal 
Orgamento e Controle 
de Obras 
Orgamento 
Patrimonial 
Pedidos, Estoque. 
Faturamento e Contas 
a Receber 
Pesquisa Salarial 
Piane[amentoe 
Controle de Produgao 

Proiegaode Obras 



vw Cobra 305. 0 micro prof issional. 





r Datalife tem 
resposta para tudo. 




Quan do o disquctc c DataLife, 
voce obtem todas as rcspostas que 
precisa. Seja para coct roles e 



A/1 vector 



iNpuSTfliA E COMtFtClti LTD A 

•SOS-CPD BJP 5L93 - Central; *15 .3344 
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Av Pwimil. M7 ■ LQ? j.-idar ijIj LOO* 444 .UU 
Aid dr Jj rtt. rp 
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decisdes empresariais, assumes 
pessoais e profissionais ou lazer 
com microcomputador, sempre ha 
um modelo adequado dc disqucic a 
sua disposicao. 

Sao os mats vend id os no mundo 
c produzidos pela empresa que mais 
invests em pesquisa e 
desen volvimento de produtos, lider 
mundial na teen o log ia de midia 
magnet ica flexivd. 



Com os Disquetes Datalife a 
informacao aparecc dara e exata. 

H a Vector acrescenta mais duas 
qu alidades: a garamia do mdhor 
atendimento e o servipo muito agil 
do SOS-CPD*. Quando voce 
precisa, a Vector entrega. 



\ferbatim® 



I 'tlhJuzuJi} na Zona Franca dc Man&tis 



P&D SI** 



flq Fl^trfinfcns S. Ap 



/Micro 
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t A APR END A INGLES COM 
l^T ANIMALS — Voc& ja viu 
algum animal falando Ingl&s? 
Claro que nao, Mas voc£ podera 
vd-los ajudando a ensinar 
IngISs at raves deste programa 
idagtado pelw-Gukura Inelesa 
para a linha Sinclair. 

n DESCUBRA O 
LL FOR MATO DE IMA 
FITA CA55ETE — "Elemental 
meu caro Watson”, diria 
Sherlock Holmes, mas com este 
utilitario desenvolvido por 
JoSo Henriquc Volpini Mattos 
voce tambem sera capaz de 
descobrir rapidamente a 
formatacao de qualquer fita 
cassete gravada nos micros 
TRS-80 




M A INICIAUZAQAO DO 
MONITOR NO CP-500 — 

Dc que ins t ruqoes comp oe-se 
o software hasicn deste 
equipamento? De forma 
simples e detalhada. Mauricio 
Baduy adentra o monitor 
resident e no CP- 500. most rand o 
o que acontece na UCP quando 
damos parttda no micro. 

S f\ JOG ANDO COM AS 
OU PA LAVRAS — Provando 
que e capaz de format mais 
palavras que seu adversario, 
a crianca desenvolve a arte de 
soletrar, Neste programa de 
Hebcr Jorge da Silva para a 
linha TRS-80. tambem os adult os 
poder^o demonstrar scus dotes 
lingUisticos. 
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C omo esta edigao de MICRO 
SI STEM AS esta de alguma 
forma ligada a volta as aulas , 
com alguns programas bastan- 
te interessantes e educativos para as cri- 
angas, resolvemos fazer a priori um pe- 
queno levantamento do que estaria dis - 
ponivel no mercado na area de software 
didatico. Mesmo procurando ndo recair 
num otimismo exagerado, achando que 
iriamos encontrar toda a sorte de bone- 
cos e bichinhos ensinando as nossas cri- 
angas os misterios da lingua portuguesa, 
devo admitir que esperdvamos bem mais 
do que foi encontrado. 

Realmente, trocando em miudos, 
muito pouca coisa esta disponivel nas 
lojas, e uma fraca meia duzia de titulos 
parece espelhar toda a criatividade que 
nossos produtores de software puderam 
ter. Ou pior, espelha ainda o pouco que 
e suficiente para suprir a demanda insi- 
pida de nosso mercado com relag do a 
pacotes educacionais. 

£ um verdadeiro jogo de empurra, 
sem nenhuma razdo de ser , pois melhor 
seria admitir a falta de interesse, por 
ndo ser um bom negocio. Os lojistas di- 
zem ndo ter para venda pois ndo exist em 



programas disponiveis, alem de reconhe- 
cerem a fraquissima demanda (alguns 
quantificaram 'lima media de duaspro - 
curas por mes") do consumidor final. A 
maioria das software-houses , por sua 
vez, explica a escassez de programas 
educativos no mercado pela absoluta fal- 
ta de procura por parte dos consumido - 
res e dos revendedores e lojas , seus prin- 
cipals clientes. De mais de um represen- 
tante de soft-houses ouvimos a expres- 
sdo ‘>nau negocio ” 

Enquanto isso, existem estabeleci- 
mentos para os quais a aplicagdo do mi- 
crocomputador na area diddtica pode 
vir a ser , e de fato jd vem sendo f um 
" bom negocio”. Sao os colegios, princi - 
palmente os de segundo grau, que vem 
utilizando este novo instrument de 
apoio ao ensino, muitas vezes com bas- 
tante desembarago. 

Talvez ate pela falta de outras opgoes 
no mercado , a maioria dos colegios que 
tern participagSo mais ativa neste sen - 
tido criou equipes proprias para o desen- 
volvimento de seus programas. Geral- 
mente formadas por prof essores da esco - 
la, algumas vezes contando com o apoio 
de analistas contratados , estas equipes 



buscam uma solugao nacional mais via- 
vel do que depender de um mercado es- 
casso e com produtos, em sua maior par- 
te, elementares demais. Jd outros cole- 
gios, embora ndo esquecendo a nova 
", revolugao do ensino ”, optaram por so- 
lugoes mais simples, como somente a 
insergao do BASIC em sua pauta curri- 
cular, livrando-se com isto da dor de ca- 
bega de procurar definir os objetivos da 
aplicagdo da mdquina, quern produzird 
o software e qual o investimento desti- 
nado ao projeto. 

De qualquer maneira, questionar a 
forma como vem sendo introduzidos os 
computadores nas escolas particular es e 
as dificuldades de sua introdugdo nos 
estabelecimentos publicos, ainda caren - 
tes de infra-estrutura mais elementar, e 
um dever de toda a sociedade brasileira. 
Durante a leitura, contudo, vejamos o 
que os usuarios interessados na area tern 
desenvolvido. 
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computador certo. 



Na Gappy, alem de voce encontrar a melhor solugao para 
o seu problema, voce encontra tambem assistencia tecnica 
propria, cursos de programagao e operagao, consultoria, 

" softwares ", perifericos, suprimentos e a 
implantagao de sistemas aplicativos 
comerciais e de apoio a decisao. 



APUCAT1V0S COMERCIAIS 

Contabilidade 
Controle de estoque 
Folha de pagamento 
Contas a pagar e a receber 
Alem de qualquer outra solugao que 
a Clappy pode desenvolver para voce. 

APUCATIVOS DE APOIO A DECISAO 

Planilha Financeira 
Processamento de textos 
Mala Direta 
Cadastro de Clientes 
Condole Financeiro. 



AP II -Clappy 
CPU com 64 Kbytes, placa CP/M, 
2 drives, monitor de video 
Instrum e impressora de 
100 cps. 37 ORTNs mensais* 

* Taxa de leasing em 27.02.84 



unitron 



Clappy 



Venha a nossa lojaou solicite a visita 
de um representante. 



CENTRO: 

Av. Rio Branco , 12 loja e sobreloja 
Tel.: (021) 253.3395 

CENTRO: 

Rua Sete de Setembro , 88 * loja Q (Galeria) 
Tels.: (021) 222.5517 -222.5721 

COPACABANA : 

Rua Pompeu Loureiro, 99 Tels.: (021) 257.4398 - 236.7175 

Aberta diariamente das 10 as 20 boras e aos sabados das 10 as 15 horas. 

Estacionamento proprio. 
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O sorteado deste mds, que recede 
gratuitamente uma assinatura de um ano 
de MICRO SISTEMAS, d Vicente de Paulo 
Gawryszewsk, do Rio de Janeiro. 



Felizmente tudo se resolveu a contento, 
e deixo aqui meus votos de prosperidade e 
desenvolvimento. Continuem assim, para 
cima. 

Pedro Paulo Luz C. F9 
Brasilia — DF 

Agradecemos por nos ter dado notfciat 
sobre seu problema com a Digitus e ficamos 
satisfeitos em saber que tudo foi resolvido. 
Obrigada tambdm pelo incentivo. 



F6RMULAS do afinidades ^ inteligEncia artificial 



Gostaria de saber se o Senhor Bruno 
Barasch poderia ceder as fbrmulas matemd- 
ticas que utilizou para fazer o programa 
"Uma questao de afinidades", que saiu na 
MS n9 16. pois nao consegui converter o 
programa para a TI-58. 

Robinson dos Santos Pereira 
Rio de Janeiro-RJ 

Pedimos ao Bruno Barasch e este nos ce- 
deu gentilmente as f6rmulas. Af vao: 

• PESSOA 1 Data de nascimento D1/M1/A1 
onde : D 1 * DI A, Ml = m£s , A1 * ANO 

SE Ml*2 ENTA0 : MfiSI = M 1 ♦ 1 
AN0 1 * A 1 

SE Ml«l 0U 2 : MftSl * M1+13 

ANO 1 « A 1 - 1 

.Ano Juliano « J1 = INT( 365 . 25*AHPD 
+ I NT ( 30 . 600 1 *m£s 
1 )+Dl 

•PESSOA 2 Data de nascimento D2/M2/A2 

SE M2s2 ENTAO : MfiS2 * M2*1 
ANO 2 « A2 

SE M2-1 OU 2 s MfiS2 « M2* 13 
ANO 2 - A2-1 

Ano Juliano » J2 - INT( 365 . 25*AN02 ) 

■►INTI 30.6001 *m£s 
2 ) +D2 

Diferenpa de Dias entre 1 e 2 ■ D » 

ABS ( J 1 “J2 ) 

Afinidade = 1 00*ABS( ( { FRC( D/C) *C)- 
( C/2 ) )/( C/2 ) ) 

Onde : C* ■ 23 Afinidade Fisica 

C » 28 Afinidade Emocional 
C * 33 Afinidade Mental 

OBSERVANCES : INT « VALOR INTEIRO t 

FRC ■ VALOR FRACIONARIO 

ABS * VALOR ABSOLUTO 

0 valor da afinidade e 
percentual (0 - 100%) 




(. . .) Com respeito ao processador de 
textos da Digitus, PROTEXTO, comunico 
que recebi uma nova fita que funcionou a 
contento. Agradepo a interferdncia de 
MICRO SISTEMAS, que comprova mais 
uma vez a elegancia e o estilo de uma publi- 
capaode nfvel internacional. 

Deixo, no entanto. registrado que a Digi- 
tus enviou-me, juntamente com a nova fita, 
a fotocbpia xerox da corresponddncia que 
deve ter remetido a voces. Menciona nesta 
correspondence que a carta que enviei nao 
foi recebida, o que, para mim, nao justifica a 
demora em me atender, pois a Compeel (fir- 
ma que me atendeu e onde comprei o pro- 
grama) entrou em contato telef&nico com a 
Digitus, nSo sendo atendida,do mesmo mo- 
do que eu. 



Jamais escrevi para uma revista especiali- 
zada em computapao, por um motivo muito 
particular: a maioria das comercializadas em 
bancas tratam da questSo da Informdtica 
com uma conceppao demasiadamente ut6pi- 
ca e futurfstica, empregando termos tdcni- 
cos de um nfvel tao elevado que os prbprios 
redatores das ditas publicapoes nao enten- 
dem, gerando com isso uma sdrie de mal-en- 
tendidos e inconvenientes presentes com 
uma freqiidncia indesejdvel. 

MICRO SISTEMAS foge completamente 
a esse padrao, colocando a mdquina no seu 
devido lugar, ou seja, prestando grandes ser- 
vipos e operando com quantidades de infor- 
mapoes impossfveis ao homem. E foi justa- 
mente este assunto que me levou a escrever 
a voces: li recentemente na revista Byte,ame- 
ricana^um excelente artigo sobre os estudos 
com a Inteligencia Artificial, pordm essa 
revista nao abordou mais o assunto. Gostaria 
de saber quais os progressos feitos nesse 
campo da Informdtica. 

Sergio Rodrigues Salgueiro 
Piracicaba - SP 

Consultamos nosso colaborador. Profes- 
sor Antonio Costa, que 6 um profundo co- 
nhecedor da Inteligencia Artificial no Brasil, 
e ele, em resposta, nos mandou a seguinte 
carta: 

"Na minha opiniao, os principals aconte- 
cimentos em Inteligdncia Artifical ocorridos 
nos Gltimos dois anos sao: 

1. O Japao lanpa um projeto com dez anos 
de durapao, visando a construir um compu- 
tador de quinta gerapao. Este computador 
serA capaz de falar inglds e japonds, fazer 
tradupoes, programar outros computadores, 
enxergar cenas, etc; 

2. Os Estados Unidos entram na corrida 
para construir um computador de quinta ge- 
rapao alocando verbas fabulosas para pesqui- 
sas em Inteligencia Artificial (s6 o Pentdgo- 
no alocou 1 bilhao de dblares para serem 
gastos em cinco anos. Nao deixa de ser la- 
mentdvel que parte das pesquisas em Inteli- 
gencia Artificial seja financiada por institui- 
poes militares.); 

3. Bancos de Dados cap azes de entender 
Ingles, Japones, Alemao, Frances e at6 
Portugues comepam a ser vendidos nos Esta- 
dos Unidos. Entre os usudrios de tais Bancos 
de Dados estao o Bank of America e a 
AVCO; 

4. Foram construfdos pela Xerox e pela 
Symbolics Inc. Computadores especialmente 
projetados para executar programas escritos 
em LISP, a principal linguagem da Inteligen- 
cia Artificial; 

5. Os japoneses anunciam para 1985 um 
computador pessoal capaz de executar efi- 
cientemente programas em PROLOG, a lin- 
guagem que ocupa o segundo lugar em po- 
pularidade entre as pessoas que trabalham 
com Inteligencia Artificial." 

Antonio Costa 
Rio Claro — SP 



CADERNO BASIC 



0 numero de dezembro de MICRO SIS- 
TEMAS (MS n? 27, pdg. 82) publicou um 
artigo meu chamado "Meu caderno BASIC 
de programas idiotas". Por um desses mistd- 
rios que ocorre entre o original e a reprodu- 
ce. nao saiu o agradecimento ao colega e 
programador Nelson Batista de Almeida, 
cuja revisao, palpites e paciencia tornaram 
possfvel o artigo. 

Luis Carlos S. Eiras 
Belo Horizonte-MG 

Pedimos desculpas por esta omissao, 
Eiras. Aproveitamos para agradecer mais 
uma vez, a voce e ao Nelson, por colabora- 
rem conosco. 



( ^CALENDAR IQ PERMANENTE 

Ao fazfer as modificapdes sugeridas pelo 
autor no programa "Calenddrio Permanente" 
(MS n9 27, pdg. 58), notei que o programa 
continha um erro. Por exemplo: se entrar- 
mos com a data 040284, ndo teremos como 
resultado o dia certo. O erro ocorrerd sem- 
pre que o ano for bissexto e o mds janeiro 
ou fevereiro. 

Para corrigir, proponho inserir a seguinte 
linha. 

107 IF S= 0 THEN LET S = 7 
Roberto dos Santos Silva 
Rio de Janeiro-RJ 

Remetemos suas observapoes para o au- 
tor do programa "Calenddrio Permanente", 
Jos6 Donizeti de Paula, e este nos mandou 
esta carta: 

"Com referencia as observapoes do leitor 
Roberto dos Santos Silva, informo que o lei- 
tor tern razao; a linha 105 deve ser desmem- 
brada em duas linhas: 

105 LET S= S - (A— B *4= 0 AND (M= 1 
OR M = 2)) 

107 LET S = S + 7 *(S = 0) 

O erro nao foi detectado nos testes que 
fiz, visto que s b ocorre nas datas de sdbado 
de janeiro e fevereiro de anos bissextos". 
Josd Donizeti de Paula 
Patrocfnio Paulista SP 



OPERATES COMPLEXAS 

Com relapSo d carta de Ernesto Seguchi 
(publicada na Sepdo de Cartas de MS n9 27, 
com o tftulo "Operapoes Complexas"), gos- 
taria de informar que a funpao ATAN 2 
(do Fortran) pode ser implementada em 
apenas uma linha nos micros compatfveis 
com o TRS-80 modelo I, como a linha 70 
do exemplo a seguir: 

10 'TESTE DA IMPLEMENTAgAO DA 
FUNgAO ATAN 2 (SN,CS) 

20 'ONDE: SN=SINX E CS=COSX 
30 PI = 3. 141592 
40 INPUT "ANGULO EM GRAUS =" ;X 
50 T = X * PI/180 
60 SN=SIN(T) : CS=COS(T) 

70 IF CS THEN T=ATN ( SN/CS ) - ( C 
S<0)*PI ELSE T=( l-SGN(SN)/ 
2 ) *PI 

80 T = T* 1 80/PI : PRINT "X="X 

•tip— II rp 

90 GOTO 40 





Nesta implementapao que apresentamos, 
os valores retomados estdo entre -90° e 
270° . E se uma resposta entre 0° e 360° 
for indispensdvel, troque a linha 70 para: 

70 IF CS THEN T= ATN(SN/CS) - 
(CS<0+2*(CS>0 AND SN<0))*P 
I ELSE T= ( 1-SGN(SN)/2) 

Fernando Malheiros R. da Mota 
Niter6i-RJ 

Li a carta de Ernesto Seguchi (MS n9 
27) sobre o problema do argumento nas 
operapoes complexas e f iz uma pequena sub- 
rotina que pode auxilid-lo: 

IF RE = p THEN LET ARG = PI/2 *SGN 

IM 

IF RE = 0 THEN RETURN 
LET ARG = ATN (IM/RE) 

IF RE < 0 THEN LET ARG - ARG + PI 
RETURN 

Esta rotina detecta tamb^m se a parte 
real 6 zero, o que causaria erro de divisao 
por zero na terceira linha. A rotina foi feita 
para equipamentos da I6gica Sinclair, mas 
pode ser facilmente traduzida para outros 
micros. £ importante notar que o angulo es- 
t3 em radianos, podendo ser alterado, pos- 
teriormente, para graus: 

LET ARG = ARG X 180/PI 
Giangiacorno Ponzo Neto 
Rio de Janeiro-RJ 

N6s, e o Ernesto, agradecemos muito a 
intenpao de colaborar: muito obrigada. 




A sua revista MICRO SISTEMAS me h2 
dado mucha curiosidad por conocer el len- 
guaje BASIC prof undamente. Soy uruguayo, 
vivo en Rivera- Uruguay, frontera con Li- 
vramento-RS. No existe por estas ciudades 
cur sos tan buenos como los publicados, ni 
como los existentes en las capitales. Soy 
programador en lenguaje COBOL y trabajo 
con un computador NCR 8150; no obstan- 
te. quiero perfeccionarme en el conocimien- 
to de micros y su lenguaje. 

Aqui en Livramento hay muchos micros 
y en ellos conseguir^ practicar lo ensenado 
por ustedes. No necessitan de mi felicitacio- 
nes pero tal vez ... nunca est^ demas felici- 
tarles por su publicacion mensual tan bue- 
na. 

Derby Miguez Correa 
Santana do Livramento-RS 

Parab6ns pela materia sobre a III Feira 
Internacional de InformStica; foi a melhor 
cobertura que voces jd fizeram, e melhor 
que suas concorrentes. Todavia, falando co- 
mo parte integrante e interessada em soft- 
ware, nao tivemos alegrias com esta matd- 
ria, pois jd o tftulo diz "Saldo positivo, ape- 
sar dos pesares", e depreende-se pelo texto 
que o "pesar" foi o software. 

Concordamos com a matdria quando esta 
afirma que o mercado de software estd con- 
fuso, mas isto d basicamente por causa do 
pr6prio consumidor, que ainda ndosabebem 
o que 6 software e como comprd-lo. E disso 
se aproveitam muitas lojas revendedoras de 
micros que usam o software para "forpar" a 
venda da mdquina, e tambdm os "piratas". 
que se aproveitam do trabalho desenvolvido 
aqui no Brasil ou nos EUA e vendem cbpias 
(sem assistdncia e sem garantia) por um pre- 
qo aviltado. 

(...) Hd muita coisa sdria a fazer para nos 
apoiar - a n6s, empresas de software, que 



lutamos na mais absoluta falta de incentivos 
(da industria, das lojas, dos 6rgaos como a 
SEI, e da imprensa especializada), e assim 
mesmo estamos criando e produzindo soft- 
ware de boa a excelente qualidade, venden 
do os com dtica, garantia e assistencia tdcni- 
ca ao usudrio, alocando extensos recursos na 
pesquisa e desenvolvimento de novos siste- 
mas, investindo na qualidade de produpao, 
na divulgapao e comercializapao. Para ndo 
falar nos saldrios e impostos que pagamos e 
no pessoal que treinamos. Tudo isso sem le- 
gislapao protetora e sem legislapdio tributd- 
ria adequada (...). 

Que tal fazermos de 84 o "ano do soft- 
ware" na MICRO SISTEMAS? Conte co- 
nosco I (...). 

Guilherme de Oliveira Quandt 

Gerente da Monk Micro Informdtica Ltda. 




Acho sua publicapao de bom nfvel. O 
tratamento tanto da parte tdcnica quanto 
da parte de programas d muito bom. Ve-se 
que as pessoas que colaboram para a sua re 
vista incentivam as outras a colaborar tam- 
bdm. Com relapao a apresentapao da revista, 
sb tenho elogios nao hd excessos de assun 
tos, a leitura n5o d cansativa, o papel e a im- 
pressao sao muito bons e a linguagem d 
bastante clara. Em suma, para uma revista 
praticamente nova, estd aldm do que se de- 
veria esperar. 

Agora vdm as dolorosas crfticas. Sdio 
coisas pequenas que eu gostaria de ressal- 
tar, pois meu intuito d colaborar para que a 
revista atinja um nfvel mais alto. Tenho uma 
reclamapao quanto a certas listagens, que 
vem com alguns erros. Sao poucos, mas pa- 
ra que se possa analisar o programa (fazer 
diagrama e fluxo), d preciso que a listagem 
esteja correta. £ extremamente desagrada- 
vel para quern possui um micro constatar 
que o programa nao roda devido a erros. 

A segunda crftica d com relapao d abor- 
dagem de linguagem de mdquina. Muitas das 
pessoas com as quais eu comento a aborda- 
gem deste assunto reel a mam da extrema 
complexidade do assunto: ou o texto nao 
d claro, ou realmente o assunto d dif fcil (...). 
Bernardo Meyer 
Belo Horizonte-MG 

Quero por meio desta parabenizar MI- 
CRO SISTEMAS pelo excelente trabalho 
que vem desenvolvendo, pois nSo conhepo 
outra revista nacional tdo boa na drea de mi- 
crocomputadores. 

Tenho um computador TK 85 da Micro- 
digital e gostaria que voces procurassem 
adaptar mais programas para a linguagem 
BASIC. £ que s6 conhepo a linguagem BA- 
SIC, e mesmo assim com muita dificuldade, 
pois n§o tenho curso de nenhuma lingua- 
gem, sou novo na drea de computapao, e 
possuo um computador hd apenas trds me- 
ses. Por isso. gostaria de agradecer por todos 
os programas de outras linguagens que voces 
puderem passar para o BASIC. 

Carlos Eugenio Nascimento 
Santos-SP 

Acho que voeds poderiam publicar a 
relapao dos principais tipos de cursos que 
sao ministrados no pafs, tanto nas universi- 
dades quanto nos cursinhos, mostrando os 
estdgios de formapao de profissionais em 
Informdtica, aldm de alguns esclarecimentos 
sobre as vdrias especializapoes existentes 
atualmente. 

Davi Rogdrio S. Castro 
Rio de Janeiro-RJ 



Assim como eu. muitos colegas meus 
sentem a falta de uma sepao ou atd um ca- 
derno interno na revista que trate dos pia- 
nos e tarefas do dia-a-dia desses profissio- 
nais. Voces deveriam criar um caderno es- 
pecial izado. com assuntos como: Redes de 
Computadores, Redes de Banco de Dados. 
Comunicapao de Dados, Tipos de Comuni- 
cap5o de Dados e outros assuntos que inte- 
ressam a esse tipo de profissional. 

Carlos Roberto Cavalcante 
JoSo Pessoa-PB 

Gostaria de tentar melhorar ainda mais 
a revista de vods, contribuindo (penso eu) 
com algumas sugestoes: 

— Mais mat^rias sobre o equipamento 
Apple; 

— Colocar sempre Tira-Teima sobre algu- 
mas questoes mais complicadas ou mesmo 
sobre programas publicados em MS (como 
voc§s j2 fizeram em MS n9 26, p4g. 24); 

— Colocar mais dicas sobre o Apple; 

— Publicar os esquemas el^tricos dos mi- 
cros fabricados no Brasil. 

Vicente de Paulo Gawryszewsk 
Rio de Janeiro-RJ 

Gostaria que vocSs abordassem mais o 
COBOL e o FORTRAN. Acho que hd mui- 
tos leitores que possuem computadores que 
dispoem dessas linguagens, mas nao as ope- 
ram porque nao entendem. 

Marcelo S. Parisotto 
Campinas-SP 

Atualmente, com a variedade de soft- 
ware disponfvel no mercado, por que n§o 
criar em MS um espapo destinado d andlise 
de software? Esta d a minha sugestao. 
Antonio A. Caram Neto 
Belo Horizonte-MG 

Gostaria que fosse feito um Tira-Teima 
para o programa "Aventuras na Selva", 
publicado em MS n9 23, da mesma forma 
que foi feito para o programa "Aeroporto 
83", na MS n9 26. 

Ary Fernando Beirao 
Rio de Janeiro-RJ 

Venho atravds desta fazer-lhes algumas 
sugestoes: 

• Que a Sepao BITS seja ampliada; 

• Que haja mais artigos referentes ds apli- 
capoes de micros e mfnis dentro das grandes 
e mddias empresas, dando-nos uma iddia me- 
lhor das aplicapoes destes; 

• Que fapam artigos que tratem do uso de 
computadores no controle de processos, 
pois d uma drea em grande desenvolvimen- 
to; 

• Que mensalmente seja editada uma tabe- 
la de prepos dos diversos micros existentes 
no mercado. 

Cezar Luiz Grava 
Blumenau-SC 

Minha sugestao d a seguinte: MICRO SIS- 
TEMAS abriga um mundo de programas em 
BASIC. Que tal olhar um pouquinho mais 
para o lado do COBOL, jd que d uma lin- 
guagem de boa aceitapao no mercado? 
Domingues A. Guerra 
Sao Paulo SP 

Sugiro que seja lanpado um curso de pro- 
gramapao das calculadoras TI-58 e TI-59, 
pois iria satisfazer um grande numero de 
leitores desta revista. 

Antonio Josd de Barros da Silva 
Rio de Janeiro-RJ 



Envie suas sugestdes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do 
possfvel, viabilizd las. 




Com este programs, seu micro compativel com o TRS-80 modelos / ou III tera tod a a paciencia e boa vontade 
derm undo para treinar com as crianqas as quatro operaqoes aritmeticas 



Tutor 

matematico 

Paulo Sergio Gonsalves 




O programs que e apresentado a 
seguir tem como objetivo ser- 
vir de suporte bdsico no ensi- 
no de aritmetica. Foi escrito 
em BASIC para os micros da linha TRS- 
80 modelos I ou III e tambem podera 
rodar, com algumas pequenas modifica- 
g5e s, em equipamentos de outras linhas. 

Na estruturagfo do programa leva- 
ram-se em conta os seguintes aspectos: 

1 - a escolha do tipo de operagfo que 
se deseja: soma, subtragao, multiplica- 
g£o ou divisao ; 

2 - a escolha do nivel de dificuldade 
que se deseja imprimir (facil, medio e di- 
ficil); 

3 — a eleigao de dez questSes. 

Um dos pontos importantes na ela- 
boragao de programas educacionais ou 



de jogos e, sem duvida, a inclusao de ele- 
mentos de estimulagffo e movimentagSo 
de caracteres e/ou figuras no video, nfo 
so para quebrar a monotonia fria da ma- 
quina como tambem com a finalidade 
de manter o seu interlocutor sempre 
atento. 

Neste sentido, introduziram-se dois 
elementos no programa. O primeiro, o 
som, foi implementado atraves de uma 
pequena sub-rotina (ver listagem, passos 
1400 a 1450), a qual e chamada todas as 
vezes em que a questao apresentada pelo 
computador 6 respondida corretamente. 
0 segundo elemento refere-se a um ros- 
to que se toma alegre quando a questao 
e' respondida corretamente e sisudo 
quando a resposta 6 incorreta (ver lista- 
gem, passos 1500 a 1600). Para dina- 



mizar ainda mais, este rosto aparece no 
video aleatoriamente em todas as posi- 
gOes permitidas. A16m disso, quando a 
resposta 6 incorreta, o computador emi- 
te uma mensagem , com a posterior in- 
formagffo do resultado correto. 

Para facilitar o entendimento da es- 
trutura logica do programa, procurou- 
se introduzir varios comentarios ao lon- 
go do mesmo, o que permitird a compre- 
ensfo bdsica de seu funcionamento pela 
simples leitura de sua listagem. 



Paulo Sergio Gonsalves £ engenheiro, possui 
Mestrado em Engenharia de Produgao e uti- 
liza um CP -500 como hobby e em aplicagdes 
educacionais. 



5 REM " TUTOR" 

10 CLEAR: CLS 
15 PRINT 

20 PRINT M TUTOR 

MATEMATICO" 

25 PRINT " = = = = = 



30 PRINT H /" 

35 INPUT"MEU NOME E CP-300 EOS 
EU" ; NS 
40 PRINT 

45 PR I NT "NOME : ";N$ 

50 PRINT 

55 PRINT "VAMOS ESTUDAR MATEMATI 
CA. VOCE DEVE ESCOLHER" 

60 PRINT "UM DOS EXERCICIOS ABA I 
XO INDICADOS 
65 PRINT 

70 PRINT " ( 1 ) = ADICAO ( + 

)" 



75 PRINT " (2) = SUBTRACAO 

( - r 

80 PRINT" (3) = MULTIPLICAC 

AO ( X )" 

85 PRINT " (4) = DIVISAO ( 

: )" 



90 FOR 1=1 TO 1000: NEXT 
95 INPUT "DIGITE O NUMERO DO EXE 



Tutor Matematico 



RCICIO " ; OP 

100 IF OP<1 OR OP> 4 THEN GOTO 10 
105 CLS 
1 10 PRINT 

115 PRINT" NOME : ";N$ 

120 PRINT 

125 PRINT " VOCE DEVE ESCOLHER O 
NIVEL DE DIFICULDADE : " 

130 PRINT 

135 PRINT " (1) = FACIL ( UM 

/UM DIGITO)" 

140 PRINT " (2) = MEDIO (DO 

IS/UM DIGITO)" 

145 PRINT " (3) = DIFICIL ( 

DOIS/DOI S DIGITOS ) " 

150 INPUT "ENTRE COM 0 NIVEL DE 
DIFICULDADE : ";NO% 

155 IF NO% < 1 OR NO% > 3 THEN GOTO 
105 

160 RANDOM 
165 I %=0 

170 FOR J=1 TO 10 
175 CLS 



180 ON OP GOSUB 300,400,500,600 
185 NEXT J 
190 GOTO 1200 
300 REM ADICAO 

305 ON NO% GOSUB 700,750,800 
310 A$= "+ M : E$=" ADICAO . " 

315 D=XO+YO 

320 GOSUB 1000 

325 GOSUB 900 

330 RETURN 

400 REM SUBTRACAO 

405 ON NO% GOSUB 700*750,800 

410 A$=" : E$= "SUBTRACAO. " 

415 D=XO-YO 
420 GOSUB 1000 
425 GOSUB 900 
430 RETURN 

500 REM MULTIPLICACAO 

505 ON NO% GOSUB 700,750,800 

510 A$= " X" : E$="MULTIPLICACAO. " 

515 D=XO*YO 

520 GOSUB 1000 

525 GOSUB 900 

530 RETURN 

600 REM DIVISAO 

605 ON NO% GOSUB 700,750,800 

610 A$=" : " : E$="DIVISAO. " 

615 ZO=XO*YO: D=XO: XO = ZO 
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620 GOSUB 1000 
625 GOSUB 900 
630 RETURN 

700 REM SUBROTINA FACIL 
705 XO=RND ( 9 ) 

710 YO=RND ( 9 ) 

713 IF XO=YO THEN' GOTO 705 
715 GOSUB 850 
720 RETURN 

750 REM SUBROTINA MEDIO 
755 XO=RND ( 99 ) 

760 YO=RND ( 9 ) 

763 IF XO= YO THEN GOTO 755 
765 GOSUB 850 
770 RETURN 

800 REM SUBROTINA DIFICIL 
805 XO=RND ( 99 ) 

810 YO=RND ( 99 ) 

813 IF XO= YO THEN GOTO 805 

815 GOSUB 850 

820 RETURN 

850 REM COMPARACAO 

855 IF XO< YO THEN Z = XO: XO=YO: Y 

0=Z 

860 RETURN 

900 REM OPERACAO DISPLAY 

905 INPUT" ENTRE COM A RESPOSTA"; 

R 

910 R%= ( LEN ( STR$ ( R ) ) - 1 ) 

915 IF R<>D THEN GOTO 925 ELSE I 
%= I % + 1 : PRINT#? 3 4 ," PR1N 

T07 3 5-R% , R : PRINT@86 3 , " * * M U I 
TO B E M ! **": GOSUB 1400: 0= 
0:GOSUB 1500 

920 FOR 1=1 TO 500: NEXT: GOTO 9 
70 

925 PRINT4&86 3 , " * ";R;" * NAO EST 
A CORRETO!" 

930 PRINT4&92 4 , " AGUARDE A RESPOS 
TA ..." 

935 FOR 1=1 TO 600: NEXT 
940 D%= ( LEN ( STR$ ( D ) ) - 1 ) 



945 PRINT#863," 

950 PRINT@924," 

955 PRINT#734," 

960 PRINT#? 35-D%,D 

965 FOR 1=1 TO 500: NEXT: 0=2: G 

OSUB 1500: FOR 1=1 TO 500: NEXT 

970 RETURN 

1000 REM DISPLAY 

1005 CLS 

1010 PRINT ' 79 , "T U T O R M A 
TEMATICO" 

1015 PRINT#! 4 3, "= = = = = = = 



1020 PRI NT02 10," EXERCICIO DE ";E 
$ 

1025 PRINTG299," # QUESTAO N* "; 
J 

10 30 PRINT#3 31 , "QUAL RESULTADO D 
E :" 

1035 A%= ( LEN ( STR$ ( XO ) ) - 1 ) 

1040 B%= ( LEN ( STR$ ( YO ) ) - 1 ) 

1045 PRINT#543-A%,XO 
1050 PRINT#603,A$ 

1055 PRINT#607-B%,YO 
1060 PRINT#668, "======" 

1065 PRINT#7 32 , " ???" 

1070 FOR 1=1 TO 500: NEXT 
1075 RETURN 

1200 REM DISPLAY FINAL 
1205 CLS 
1210 PRINT 
1215 PRINT 

1220 PRINT " TUTOR 

MATEMATICO" 

1225 PRINT " = = = = = 

1230 PRINT 

1235 PRINT " *** RESULT 

ADO DO TESTE ***" 

1240 PRINT 



1245 PRINT " ALUNO : ";N$ 

1250 PRINT 

1255 PR I NT" VOCE ACERTOU A ";I%;" 
RESPOSTA ( S ) 

1260 PRINT "ENTRE DEZ QUESTOES A 
PRESENTADAS. " 

1265 PRINT 

1270 PRINT: GOSUB 1400 

1275 INPUT " QUER MAIS EXERCICIO 

S (S/N)" ;Q$ 

1280 IF Q $ = " S " THEN GOTO 10 
1285 FOR 1=1 TO 500: NEXT 
1290 CLS 

1295 PR I NT@5 32," ATE A PROXIMA. T 
CHAU ! " 

1300 END 

1400 FOR X= 1 TO 40 
1410 OUT 255,5 
1420 OUT 255,6 
1430 NEXT X 
1440 RETURN 

1500 REM SUBROTINA ROSTO 
1510 G 1 $=CHR$ (131): G2$=CHR$(143 
): G3$=CHR$( 179) : G4 $ = CHR$ ( 1 9 1 ) 
1520 CLS 

1 530 M 1 =RND( 6 ) * 1 0-8 : M2=RND(4)-1 
: M=M1 + ( 256*M2 ) 

1540 PR I NT@M ,G4$;G2$;G4$;G4$;G4$ 
;G2$ ;G4$ ; 

1 550 PRINT@M+63,G4$;G4$;G4$;G4$; 
Gl$rG4$;G4$;G4$;G4$; 

1560 PRINT@M + 128,G4$;G3$;G3$;G3$ 
;G3$;G3$;G4$; 

1570 PRINT@M^192,G1$;G2$;G2$;G2$ 
;G2$ ;G2$ ;G 1 $ ; 

1580 01 =INT( M/64 ) *64 : X=(M-01)*2 
+2: 02= I NT ( (M+129)/64)*3: Y=02+0 
1590 RESET (X,Y): RESET ( X+ 1 , Y ) : 
RESET(X+8,Y) : RESET(X+9,Y) 

1600 RETURN 
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Ad apt ado para a logica Sinclair, Animats e um exemplo do quanto 
os micros podem contribuir para o aprendizado do Ingles 



Aprenda Ingles 
com Animals 

Eddie Edmund son 




C onhecido como 
brinde para quern 
compra os com- 
putadores Apple, 
o programa Animals que 
aqui trazemos e uma versao 
escrita em BASIC para 
equipamentos Sinclair com 
expansao de 16 Kb de 
memoria. Foi adaptado pela 
equipe do Centro de Trei- 
namento e Recursos da 
Cultura Inglesa,como forma 
de utilizar o TK85 recente- 
mente adquirido por uma de 
suas filiais no ensino e prati- 
ca do Ingles com grupos de 
alunos. 

ENSINANDO O 
COMPIJTADOR 

No comedo, o programa 
corihece apenas dois animals 
e pede para os alunos pen* 
sarem em qualquer um, o 
qual tentara adivinhar £ 
claro que ele comete um 
erro e, entao, pcde para os 
alunos informarem o nome 
do animal em que pensaram 
e em seguida proporem uma 
pergunta que o clistinga da- 
quele em que ele pensou 
0 programa vai incorporan- 
do essas informagdes ao seu 
banco de dados (tan to os 
nomes dos animais quanto 
as perguntas que os diferen- 
ciam dos demais) e isso 
continua ate ele tomar-se 



tao inteligcnte que os alunos 
sao forgados a dar defini- 
gdes cada vez mais precisas. 

Todas as mensagens sao 
escntas em Ingles e os alu- 
nos tambem devem *se co- 
m uni car com o micro na 
mesma lingua. 0 mais im- 
port ante e que, ao inves das 



atividades estarcm baseadas 
apenas em principios de 
certo e errado, foram intro- 
duzidos varios elementos 
que visam a motivar os alu- 
nos a competircm com a 
maquina, descobrindo quan- 
do ela comete um erro. O 
resultado e que eles tern a 



nitida sensagao de estar en- 
sin an do o computador e, 
assim, vao aprendendo e 
praticando da forma mais 
natural possivel. 
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Animals 



10 REM "ANIMALS" 

20 REM CONVERTED AND ADAPTED F 
ROM A PROGRAM BY JOHN HIGGINS (AF 
TER A. W. LUEHRMANN) WRITTEN FOR 
A SHARP MZ 90B . THIS PROGRAM IN 
SINCLAIR BASIC BY EDDIE EDMUNDSO 
N , AUGUST 1983. 

25 PRINT AT 11 , 10 ; "ANIMALS " 

30 FOR F*=l TO 100 
35 NEXT F 
40 LET P=2 
45 LET K=- 1 
50 DIM Q$ (127,32) 

55 DIM A$ ( 225 , 15) 

60 LET Q$ (64) ="FLY " 

65 LET A$ ( 64 ) ="COW" 

70 LET A$ ( 1 9 2 ) = "EAGLE H 
75 PRINT AT 7,0; "PLEASE GIVE K 
E YOUR NAME . " 

80 INPUT N$ 

85 CLS 

90 PRINT CHR$ (146) ;N$ 

95 LET N=64 
100 LET R=6 4 

110 PRINT "THINK OF AN ANIMAL A 
ND THE" 

120 PRINT "COMPUTER WILL TRY TO 
GUESS IT." 

130 PRINT TAB 4; "I ONLY KNOW 
P;" ANIMALS" 

140 PRINT TAB 1; "PRESS ""R"" WH 
EN YOU ARE READY . " 

150 IF INKEYS <> "R" THEN GOTO 15 

0 

160 FOR F=1 TO 4 

161 PRINT AT F , 0 ; " 

162 NEXT F 
165 LET R=R/2 
170 LET K=K+2 

175 PRINT AT K,0;"DOES IT ";Q$( 
N) 

180 INPUT F$ 

190 IF K=5 THEN GOSUB 4000 
200 IF F$="Y" OR F$="YES" THEN 
GOTO 800 
210 LET N=N-R 

220 IF N< 1 OR N> 127 OR INT (N) < 
>N THEN GOTO 3000 

221 LET L=LEN QS(N) 

222 IF Q$(N,1 TO L)=" 

" THEN GOT 

O 225 

223 GOTO 165 

225 LET X$=A$ (N*2) 

230 PRINT "I KNOW. ITS A"; 

240 GOSUB 2000 
245 PRINT AS (N*2) 

250 PRINT TAB 3;"IS THAT RIGHT? 
Y/N"? 

255 INPUT FS 

260 IF FS="Y" OR FS= "YES " THEN 
GOTO 1000 
265 PRTNT 

270 PRINT "PLEASE TELL ME YOUR 
ANIMAL. " 

275 INPUT HS 

300 IF LEN HS<2 THEN GOTO 275 
310 IF HS (1 TO 2) = "A " THEN LET 
HS=HS (3 TO LEN HS) 

320 IF HS (1 TO 3) ="AN " THEN LE 
T HS=HS(4 TO LEN HS) 

330 “PRINT 

340 PRINT " THANK YOU. NOW PLEA 
SE GIVE ME A" 

350 PRINT "QUESTION TO DISTINGU 
ISH A"; 

360 LET XS=H$ 

365 GOSUB 2000 

370 PRINT HS 

375 PRINT "FROM A"; 

380 LET XS=AS(N*2) 

385 GOSUB 2000 
390 PRINT AS (N*2) 

395 PRINT TAB 2; "BEGINNING ""DO 

ES IT ?""." 

400 PRINT 



410 INPUT JS 

415 LET L=LEN JS 

420 IF L>8 THEN GOSUB 4500 

450 PRINT TAB 3? "FOR A"; 

460 LET XS=HS 
465 GOSUB 2000 
470 PRINT HS; 

475 PRINT " , WHAT IS" 

480 PRINT TAB 3; "THE ANSWER? Y/ 
N" 

485 PRINT 
490 INPUT Y$ 

500 LET QS(N)=JS 

510 IF YS (1) <> "Y" THEN GOTO 600 

520 LET AS (N*2+R) =H$ 

525 LET AS (N*2-R) =AS (N*2) 

530 LET AS (N*2) *" " 

535 GOSUB 5000 

540 PRINT "PRESS""G""IF YOU WAN 
T ME TO GUESS AGAIN" 

550 IF INKEY$=" " THEN GOTO 550 
555 IF INKEYS="G" THEN GOTO 85 
560 IF INKEYS< > "G" THEN GOTO 54 

0 

580 STOP 

600 LET AS (N*2+R) =A$ (N*2) 

610 LET A$(N*2-R)=H$ 

620 GOTO 530 
800 LET N=N+R 
810 GOTO 220 
1000 PRINT 

1005 PRINT "WHAT A BRAIN I VE GO 
T. PRESS ""G"" " 

1006 PRINT TAB 2;NS 

1007 PRINT "IF YOU WANT ME TO GU 
ESS AGAIN." 

1010 IF INKEY$="" THEN GOTO 1010 
1015 IF INKEYS ="G" THEN GOTO 85 
1020 PRINT "BYE. I HAVE ENJOYED 
PLAYING THISGAME WITH YOU." 

1050 STOP 

2000 REM TO CHECK A OR AN. 

2010 LET KS=XS (1) 

2020 IF KS = "A" OR KS«="E" OR KS = " 
I" OR KS-"0" OR KS= r "U" THEN GOTO 
2050 

2040 PRINT " " ; 

2045 RETURN 
2050 PRINT "N "; 

2060 RETURN 

3000 REM NO MORE ROOM FOR QUESTI 
ONS. 

3010 PRINT 

3020 PRINT "I GET CONFUSED AFTER 
SO MANY QUESTIONS. LETS TRY 

AGAIN. PRESS ""C"" TO CONTI 

NUE. " 

3040 IF INKEYS < > "C" THEN GOTO 30 
40 

3050 GOTO 85 
4000 FOR F=1 TO 6 
4010 PRINT AT F,0; " 

4020 NEXT F 
4030 LET K=-l 
4040 RETURN 

4500 IF JS(1 TO 8) “"DOES IT " TH 
EN LET JS=JS (9 TO L) 

4510 RETURN 

5000 REM TO CHECK NUMBER OF ANIM 
ALS 

5005 FAST 

5010 LET P=225 

5020 FOR J=1 TO 225 

5030 IF AS ( J , 1 TO 3)*" " THEN 

LET P=P-1 

5040 NEXT J 

5045 CLS 

5050 SLOW 

5055 PRINT AT 10,5; "THANK YOU." 
5060 PRINT "NOW I KNOW ";P; n DIF 
FERENT ANIMALS" 

5070 PRINT 

5080 RETURN 

6000 SAVE "ANIMALS" 

6010 RUN ■ 





[EfSlGTMl T0DA A LINHA 

W l H i ° E micros e 



MINICOMPUT ADORES 



A informagao nas pontas dos seus dedos 



Gerenctador de 
banco de dados 



mm 


r 


□ 



Sistemas operacionab 
MS-DOS (IBM- PC) CP/ 
M CP/M-86 CROMIX 
COOS MP/M MP/M-06 

□ Cursor aoderecavel 
para o uso de f undoes 
fullscreen 



Automagao 
de escritonos 






Requerlmentos do 
Sistema: 

□ (Mlcroprocessadorse 8080, 
8085, Z80. 8086, 8088) 

□ 64K p CP M; 128K pi CPI 
M-86 e MS-DOS; 56K p 
Apple II 

0 2 Disketes cl mlnkno de 
126K cada 

□ Terminal c/80 colunas e 
cursor endelecAvel 



□ kmpressora com no mlnl- 
mo 80 colunas. 

Otamac (s8rle 8.100) Mlcrodlgrtal (TK’s 83 85 2000) 
CP's 200300,500, Impresaoraa, eMxa, efgln. dlamac 
Mlcroengenho I e H e Apple- Tronic 

Suprtrmntxm 

Disco* Magnet Jcos. SMB. 16UB. 80MB. etc. 

Dmktfs: 5 1/4” 8 simples a dupla faces 

Etiqufi ( rarias marcas) 

fits Magnadca: 600. 1200 e 2400 Pea 

Fit as p/impmsorso. eMbra, dlgllab. diabio, centronlc. 

ate. 

Qsrtucho* Cobra 400 
Pastas a tormuisno* conttnoo* 
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repro 








Enxadrista experiente. Luciano Nilo de An 
drade j& escreveu para os jornais "Correio da 
Man ha". ~ Data News" e " Ultima Hora" e pa 
ra a revista "Fatos & Fotos" Luciano 6 econo 
mista. trabalhando no Minister to da Fazenda, 
no Rio de Janeiro. As opimoes e comentdnos 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores. estarSo sempre p resen tes em 
MICRO SISTEMAS 



As mulheres e o xadrez 



V ez por outra discute -se o por- 
que de as mulheres nao se igua- 
larem aos homens nas perfor 
mances enxadristicas mais ele- 
vadas. Para muitos, a causa seria as li- 
mita^oes que, cultural e socialmente, 
eram impostas as mulheres no passado. 

Outra linha de pensamento e baseada 
na analise psicologica das tendencias e 
motiva^oes que estimulam o desenvolvi- 
mento das atividades psicomotoras, con- 
duzindo o ser humano a atingir o maxi- 
mo de suas potencialidades e caracterfs- 
ticas biotopologicas proprias, femininas 
ou masculinas. 

Recentemente, entretanto, pesquisa- 
dores da Universidade John Hopkins, 
E. U. A., formularam controvertida 
teoria segundo a qual o desequilibrio 
hormonal poderia explicar o desenvolvi- 
mento do talento matematico. Partindo 
desta premissa, por extensfo, Andy 
Soltis, mestre internacional americano e 
colunista de xadrez do New York Post , 
em virtude de certas analogias entre a 
matematica e o xadrez, levantou a in- 
teressante hipotese de que tamb£mhave- 
ria uma base bioquimica para a aptidSo 
para o jogo de xadrez. A comprova^o 
desta hipotese abriri novas perspectivas 
ao ensino e a pesquisa no campo enxa- 
dristico. 

A partida seguinte mostra o adianta- 
do nivel aicansado pelo enxadrismo 
feminino, onde nao faltam auddcia e 
tecnica. 



Semenowa X Ioseliani 
Socchi 1983, semifinal mundial 

1 - P4R P4BD; 2 - C3BR P3D; 3 - 
P4D PxP; 4 - CxP C3BR; 5 - C3BD 
P3TD; 6 - B5CR P3R; 7 - P4B B2R; 
8 - D3B D2B; - 9 - b-M CD2D; 10- 
P4CR P4CD; 11 - P3TD T1CD, 12 - 
B4T. Uma novidade para a posi^ao. Era 
conhecida a continuagao 12 - BxCCxB; 
13 - P5C C2D e 14 - P5B % sacrificando 
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um peao para obter forte iniciativa, ou 
simplesmente 14 - B3T. 12 - ... C4B; 

13 - TIC P5C; 14 - PxP TxP; 15 
P5C CR2D; 16 - B1R D3C; 17 - 
C5D!? 

Um sacrificio 
tipico a la 
•Verimilovic. 
As brancas 
entregam 
uma pefa por 
. um perigoso 
ataque 
especulativo. 




17 - ... PxC; 18 - BxT DxB; 19 - 
PxP B2C; 20 - D2R C3C. Segundo 
Najdorf, seria melhor 20 - ...BxP com 
mais luta, a despeito do fato de que as 
brancas manteriam o ataque com T3C 
seguido de T3R. 21 — P4B RID; 22 — 
T3C T1R; 23 - T3R D5T; 24 - T1R 
BxPD (engenhoso contragolpe merece- 



dor de melhor sorte). 25 — TxB D8T+; 
26 - R2B D5T+(?). Um erro. Com 26 - 
... B5RH;27 - TxB D5T+; 28 - P3C com 
mais possibilidades de empate com xe- 
que perpetuo. 27 - P3C D7T+; 28 - 
R3B (inicio de bem-sucedida incursffo 
do monarca branco em territorio inimi- 
go). 28 - ...C5R+; 29 - R4C P4T+; 30 
- R5C D6T; 31 - TxT+ R2B; 32 - 
T7R+ C2D; 33 - TxC+ RxT;34-R6T 
D5C; 35 - C5C B3B; 36 - D3R RIB; 
37 - B3T+ e as pretas abandonaram. 
Uma bonita e aguerrida partida. 




Posifdo 

final 



PARA PENSAR 



Ori gem desconhecida 



Kuypers x Wade 
Vlissingen, 1972 




Dia grama A 
-As brancas 
jogam e 
ganham 




Diagrama B 
-As brancas 
jogam e 
iniciam 
combinafdo 
que leva a 
mate em 
cinco jogadas 



■Solupao dos problema* 



•++8*0 - 9 -±£8 +130 - V 038 +1*0 “ £ : SZ1 +d*0 - 3 -±*8 i+d*± - i ~ 8 euiej6 biq 

•++1^0 - S 'llH +890 - V HDL1 0*0 
- £ ( ++Dd*Q ~ P 3 +090 -f : lld - Z as ) 13H +Had*a - 3 : 0 X 0 iOZl - i ” V eu,ejBe !a 

m 
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Este e um _ 

equipamento profissional. 




0 UNITRON AP II e o microcomputador profissional de maior versatilidade. Com memoria expansivel ate 
384 K, capacidade para ate 14 unidades de disco, utilizapao do sistema CP/M, monitor de fosforo verde com 
apresenta(?ao de ate 160 caracteres por linha, impressoras Elebra ou Elgin e diversos acessorios opcionais, o 
AP II pode ser configurado na medida certa das suas necessidades. Utilizando programas ou processando a 
folha de pagamento, o contas a pagar/receber, o controle de estoques e a contabilidade, o AP II 6 a solupao 
ideal para os seus problemas ou da sua empresa. 



Esta e uma empresa profissional. 

COMPUMICRO e a primeira empresa brasileira a adotar o concetto de "BUSINESS COMPUTER 
CENTER". Inteiramente dedicada ao uso profissional dos microcomputadores, a COMPUMICRO esta ca- 
pacitada a prestar-lhe um ATENDIMENTO TOTAL, desde o levantamento de necessidades, configurapao 
de equipamento, fornecimento de "hardware" e "software" e treinamento, ate a implantapao de SOLUQOES. 

A equipe da COMPUMICRO e formada por profissionais de elevada experiencia e alta capacitapao 
na Area de Informatica. Atuando desde 1981 na comercializapao de microcomputadores, a equipe da 
COMPUMICRO apos estruturar e dirigir duas das mais conhecidas lo/as da cidade, e de fundar e dirigir a 
primeira revista brasileira de microcomputadores, estruturou-se para levar ate voce toda a experiencia de 
quern ja comerciaiizou mais de 250 UNITRON AP II .para os mais diversos ramos de atividades. 

FINANCIAMENTO - ALUGUEL - LEASING 
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INFORMATICA EMPRESARIAL LTDA. pbx 224-7007 
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Um passeio pelas paginas de memoria do Apple, uma parada especial na pagina 
zero e dois programas-exemplo ligados a area educacional 




da pagina 
Applesoft 



Rudolf Horner Junior 



C omo todos sabemos, o processador eletronico utili- 
zado na produ^ab do microcomputador Apple II e 
de todos os seus filhos e o 6502. Trata-se de um dos 
mais veteranos integrados de oito bits, o qual pode 
acessar, usando dois bytes para endere 9 amento, ate 2 16 posi- 
9 $es diferentes de memoria. Isto corresponde a exatamente 
65536 endere^os diferentes, ou seja, 64 Kbytes. 

As expansoes de memoria que superam esta marca precisam 
fazer verdadeiras magicas para poder ser realmente utiliza- 
das. Eu proprio ja vi um Apple trabalhando com 256 Kbytes 
de memoria, nada mais nada menos do que quatro vezes a ca- 
pacidade de endere 9 amento de seu processador. 

Na realidade, para que expansbes como esta possam ser 
uteis para uso, tern que engarnr o processador. Quando ele 
pensa que estd escrevendo na posi^ao $0100, ele podera estar 
escrevendo em qualquer uma das quatro posi^oes existentes na 
memoria, todas representadas por este mesmo endere^o. A de- 
frnigao de qual das quatro possibilidades foi escolhida e feita, 
normalmente, atraves de uma especie de chaveamento repre- 
sentado em uma ou mais localiza^bes de memoria pelo valor 
registrado nos bytes. 



AS PAGINAS DE MEMORIA 



Salvo este tipo de bruxaria , os computadores da linha Apple 
II possuem memoria de 64 Kbytes, sendo 48 de RAM e os 16 
restantes de ROM. Desta forma, podemos imagina-la como um 
livro composto de 256 paginas, sendo que cada uma possui 
256 bytes. A pdgina hexadecimal numero $8, por exemplo, 
come^a no endere 9 o S800 e termina no endere 90 S8FF. 

Destas 256 pdginas de memoria, temos tres categorias ba- 
sicas. A primeira corresponde a memoria RAM (pdginas zero 
ate 191); da pdgina 192 atd 207 temos os endere 9 os corres- 
pondentes as localiza 9 bes de entrada e saida (l/0);e, por ul- 
timo, fica a memoria ROM, que vai do endere 9 o 208 atd 255 
(ver figura 1 ). 

0 fracionamento da memoria ROM e' bastante simples. O 
programa em lingua gem de maquina que interpreta a lingua- 
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gem BASIC Applesoft esta carregado entre as paginas 208 e 

247 (SD000 a SF7FF). No espa 90 restante, isto d, da pdgina 

248 a 255 (SF800 a SFFFF), temos o registro do programa 
monitor, que e o supervisor geral do sistema e certamente o 
mais importante programa do equipamento. Ele 6 gravado pelo 
fabricante quando da confec 9 do do equipamento e, fisicamen- 
te, localiza-se em um chip de memoria ROM, de tamanho me- 
diano, que fica bem proximo ao microprocessador 6502 na 
placa principal do circuito impresso. Este chip e mais conheci- 
do como ROM F8. 

Existem placas de memoria adicional que podem ser im- 
plantadas no conector numero zero do equipamento, as quais 
podem substituir estas ROM da placa principal. O mercado 
mundial oferece diversas op 9 bes para isto. Existem compilado- 
res de inumeras linguagens : BASIC, Pascal, COBOL, FORTRAN, 
FORTH, LISP etc. Normalmente estas placas opcionais dis- 
pbem de uma pequena chave para informar ao sistema quais 
as ROM que devem ser utilizadas. Desta forma, o microcom- 
putador podera optar pela memoria ROM original da placa 
principal ou pela memoria contida na placa adicional ligada no 
conector numero zero. 



A RAM E SUAS POSSIBILIDADES 



Com rela 9 <To as paginas de memoria RAM, o equipamento 
faz uso das paginas de 32 a 63 (S20 a S3F) para registro da 
chamada pdgina um de alta resolu 9 ao de graficos. A pagina nu- 
mero dois de alta resolu 9 do grafica esta situada entre as pdgi- 
nas de memoria 64 e 95 ($40 a S5F). A pdgina de texto, por 
sua vez, fica localizada entre as paginas 4 e 7 (em hexadecimal 
$4 e S7) e a pdgina tres (correspondente aos bytes de $300 e 
S3FF), como sabemos, fica quase que inteiramente iivre para 
pequenos programas e rotinas em linguagem de mdquina. 

A pdgina dois da memoria (bytes $ 200 a S 2FF) 6 utilizada 
para registro de linhas introduzidas via teclado. Trata-se do 
buffer do teclado, empregado pela rotina GETLINE do pro- 
grama monitor para registrar, temporariamente, as teclas que 
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Figura l - Esquema da memdria 

digitamos para dar um comando a mdquina antes da tecla de 
retomo ser acionada. Quando fazemos isto, o computador vai 
atd a pdgina dois e tenta entender e executar os comandos que 
acabamos de escrever com o teclado. 

Para exemplificar, trouxe aqui um programa que faz uma 
pequena trapa^a. Existe no manual do Apple um pequeno pro- 
grama de demonstra 9 ao que faz com que todas as letras de A a 
Z sejam impressas em uma linha. O que nosso programa fara e 
carregar o buffer do teclado, artificialmente, com a seqiiencia 
de bytes indicada no manual, chamando em seguida a rotina 
SFF70 (com CALL —144), cuja fun 9 §o 6 varrer o buffer e 
obedecer as instates. Experimente executar este pequeno 
programa que, aparentemente, ndo tern nenhuma fun 9 do: 

100 A$ = ”300: A9 Cl 20 ED FD 18 69 01 C9 DB 
DO F6 60 300G D823G" 

110 FOK B -* 0 TO LEN { A$ ) - 1 : POKE 512 + B, 

ASC ( MID$( A$, B + 1, 1 ) ) : NEXT 

120 REM O "BUFFER” DO TECLADO ACABA DE SER CARREGADO 
ARTIFICIALMENTE 

130 POKE 72,0 : CALL - 144 : REM J 4TERPRETA E 
EXECUTA O CONTEODO DO "BUFFER" 



» 
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RESPONSABUMDE 




Cado garrofo t tvmnjdo por fuioandnoi upeoaimenre ireinodoi. que m rmuvn a code 1 5 mut« 



mr, k v6rn latxtcancto Coca -Cola no Brasil hO 

mate de 40 a nos Centenos de rrtllhOes de vezes esse retrlgerante vem sendo servido 
emmilhOes del dres brasilelros E ele 6 sempre o mesmo refrigeronte Como emrxe 
sdrlC3 raponsdvels. o mais Importante para os fabneantes prasileiros de Coca-Cola 
e o con tr ole de qualldode 

Acompanhe todos as fases do processo de tatorlcocdo de Coca-Cola vtsi- 

tando uma das mats de 60 fdbrtcas que operam de norte a sul do Pals 



a&vzzzz: 

^£7 Coca 
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Microcomputadores com credito direto ou leasing 



GRATIS! 

JOYSTICK. 20 JOGOS E UM CURSO DE BASIC 

PWTDCn A □ A Din a r i a r\r\ nrn * /%•« A 



Aplicativos: controle de esloque: conlabilidade: folha de 
pagamento: contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. 

Temos toda linha de perifericos e suprimentos para acom- 
panhar o crescimento de sua empresa. 



VISITE-NOS 0U SOLICITE UM REPRESENTANTE 



MICRONEWS COMERCIO E SERVIQOS LTDA 
R. Assembler 10 Gr. 3317 Ed. Centro Candido Mendes 
Tel.: 1021) 252 9420 CEP 20011/RJ. 




0 USO DA PAGINA ZERO PELO APPLESOFT 



Apos certificar-se de nag ter ocorrido erro na digitagao, exe- 
cute-o. Ai esta: numa linha, todas as letras de A a Z. Nosso 
programa criou a rotina ein Assembler e iinediatamente a cxe- 
cutou. Se voce conhecer o monitor do seu equipamento. reco- 
nhecera certamente todos os comandos usados no programa e 
suas fungcJes carregadas inicialmente na linha numero 100, na 
variavel AS. 

A pagina numero um da memoria da maquina e usada para 
registrar a pilha (stack) utilizada pelo processador 6502 quan- 
do da execugao de programas em linguagem de maquina. Sao 
256 bytes que nao devem ser usados pelo programador, pois 
sao. em geral, informagoes muito importantes para o micro* 
processador. 

O registrador SP ( Stack Pointer) do processador aponta o 
exato byte, da pagina um da memoria, que representa o topo 
da pilha que esta sendo usada para execugao dos programas. 
Esta e uma caracteristica marcante do processador 6502 e que 
o diferencia do processador Z80 das maquinas da linha TRS- 
80. O Stack Pointer do Z80 e composto por um par de regis- 
tradores; sao dezesseis bits para que seja registrado o aponta- 
dor para o topo da pilha. Por este motivo. a pilha de intorma- 
goes dos micros da linha TRS-80 pode sej muito maior do que 
a dos equipamentos Apple, onde existem apenas oito bits para 
apontar o topo da pilha de dados. 

Mesmo havendo esta serie de 1 imitates ao processador 
6502, ele tern alguns recursos interessantes que permitiram a 
criagao de uma linha variada de software de qualidade excep- 
cional. Veja, por exemplo, o proprio interpretador de BASIC 
Applesoft que, apesar de escrito em Assembler do 6502, e o 
que apresenta mais recursos entre os interpretadores mais di- 
fundidos comercialmente no mundo para equipamentos de pe- 
queno porte. 



A PAGINA ZERO 



Vamos falar agora sobre a pagina zero da memoria e os en- 
deregos especiais que o interpretador Applesoft utiliza nestes 
bytes, os quais vao da localizagao zero (SO) ate 255 (SFF). 

Na localizagSo 32 temos o valor da coluna inicial que sera 
utilizada para escrever no modo de texto. O enderego 33 defi- 
ne o numero de letras por linha. O byte 34 define a linha ini- 
cial para uso da pagina de texto e o 35 contem o numero da 
linha final a ser empregada. 

O interpretador registra no byte S 24 (em decimal 36) a po- 
sigao atual horizontal do cursor. No byte S25 (37 em decimal) 
fica registrada a posigao vertical atual do cursor. O byte 43 re- 
gisira o numero do conector onde o disco magnetico foi boota- 
Jo (carregado) pela ultima vez, multiplicado pelo numero 16 

O byte 48 ( S 30 em hexadecimal) armazena a cor para gra- 
ficos de baixa resolugao, multiplicado pelo numero dezessete. 
O oyte 50. por sua vez, registra a forma de apresentagao de 
textos: normal, inversa ou piscante. 

Nas localizagoes 103 e 104 temos o apontador para o ende- 
rego de inicio de registro de programas em Applesoft. Normal - 
mente apontam para o byte $0800. Nas localizagoes 105 e 
106 temos o apontador para o fmal do programa. Os bytes 107 
e 108 contem um apontador para o inicio de registro de varia- 
veis do tipo array’. Nas localizagoes 1 15 e 116 esta o valor do 
H1MEM do computador para aquele momento especifico. 

Nas localizagoes 121 e 122 fica o enderego da linha de pro- 
grama que esta sendo executada. Nos bytes 1 23 e 124 temos o 
valor da linha com a instrugao DATA que esta sendo emprega- 
da para obtengao de dados. Os bytes 125 e 126. por sua vez, 
apontam para o enderego do proximo dado da instrugao 
DATA a ser lido pelo programa em execugao. 

As localizagoes 129 e 130 contem o nome.em ASCII, da ul- 
tima variavel que foi utilizada. Em 131 e 132 ha um registro 



do apontador para a localizagao, na memoria, desta ultima va- 
riavel utilizada. 

O byte 214. como ja vimos nesta segao, no numero 26 de 
MICRO S1STEM AS, corresponde ao enderego que indica que o 
sistema de protegao de listagens AUTO RUN esta ou nao liga- 
Jo. O byte 216 e o flag de uso dos comandos ONERR GOTO. 

O byte 222 fomece o codigo do tipo de erro ocorrido 
quando da execugao de uma rotina de tratamento de erros (ve- 
remos melhor este assunto em uma outra oportunidade). Os 
bytes 218 e 219 contem o valor da linha onde ocorreu o erro 
de execugao de um programa. 

Os enderegos 224 e 225 contem o valor da ultima abscissa 
usada em um desenho de graficos de alta resolugffo. O valor da 
ordenada e registrado em apenas um byte na localizagao 226. 
Ja o byte 228 registra o codigo da cor que esta sendo emprega- 
da. e o byte 230 contem o codigo da pagina de aita resolugao 
que esta sendo alvo dos comandos de manipulagao de graficos 
(este assunto tambem sera visto com maiores detalhes em 
outra oportunidade). Por ultimo, o byte 231 registra a escala 
do desenho para graficos que utilizem tabelas de forma. A 
rotagao fica armazenada na localizagao 249. 

A velocidade de impress5o de caracteres no modo texto, a 
qual pode ser controlada pelo comando SPEED, fica registrada 
na localizagao 241. O comando PEEK (241) fomece a diferen- 
ga entre 256 e a atual velocidade de impressSo definida pelo 
comando SPEED. 



RND E KEYIN EM APLICA^OES EDUCACiONAIS 



Guardei para o final uma outra localizagao importante da 
pagina zero, utilizada pelo interpretadoi BASIC do Apple. Es- 
tou falando das localizagoes 78 e 79 (em hexadecimal S4E e 
S4F). Estes dois bytes registram um valor que serve de semen - 
te para a geragao de numeros aleatorios quando do uso da fun- 
g5o de randomizagao do equipamento. Quando usamos a fun- 
gao RND do BASIC, o equipamento se vale do conteudo des- 
tas localizagoes para gerar o numero aleatorio desejado. 

Pouca gente sabe como funciona a geragao de numeros ran- 
domicos para este tipo de equipamento. Na realidade, existe 



Listagem 1 

PROGRAM MULTI PLICA ; 

VAR RESPOSTA : CHAR ; 

NUMERO : INTEGER ; 

PROCEDURE TABUADA < NUMERO : INTEGER ) ; 

VAR A : INTEGER ; 

BEGIN 

WRITELN ; WRITELN ; 

WRITELN ('TABUADA DO NUMERO) ; 

WRITELN ; 

FOR A := 0 TO 10 DO WRITELN ( NUMERO# ' X 
A,’ - ' , NUMERO * A) ; END ; 

BEGIN ( * PROGRAMA PRINCIPAL*) 
REPEAT 

WRITE ('QUE TABUADA VOCE DESEJA VER? ') ; 

READLN (NUMERO) ; 

TABUADA (NUMERO) ; 

WRITE ('MAIS ALGUMA TABUADA (S/N)? ') ; 

READLN (RESPOSTA) ; WRITELN ; 

UNTIL (RESPOSTA = 'N') 

END. (* FINAL DO PROGRAMA PRINCIPAL *) 



Listagem 2 



10 Din HE$<4> ,N0$(4) : FOR A = 0 TO 
4: READ ME$ ( A ) ., NG$ ( A ) : NEXT 

20 DATA "El, PRESTE HAIS ATENCAO 
! ! " , PESSIM0 , VOCE E 7 UH BURRO 
! ! , FRAC0 , SAGRADA 1GN0RANCI A ! 

!, REGULAR, "VOCE NAO APRENDE 

nEsno, he in?" , B on , "se errar 

DE N0V0 VAI LEVAR UH nURRO", 

onno 

30 TEXT : H0HE : NORMAL : SPEED= 

255: HTAB 5: PRINT "*** APR 
ENDEND0 A TABUADA ***": POKE 
34,3: HOnE 

40 INPUT "OLA, QUAL E' SEU NCHE? 

"?N$: HOhE : PRINT "UAHOS E 
STUDAR A TABUADA Un P0UC0?": 

PRINT 

50 VTAB 6: HTAB 1: PRINT "SERA f 
QUE UOCE JA 9 ESTA' PRONTO PA 
RA FA-ZER A PR0UA, "N$"? (S/ 

N) : "? : GET R$: IF R$ < > " 

S" AND R$ < > "N" THEN PRINT 

CHR$ (7): GOTO 50 
60 H0HE : IF R$ = "S" THEN 130 
70 UTAB 6: HTAB 1: PRINT "NAO ES 
TA' AINDAH": PRINT : PRINT 
"BOH, ENTA0 UAH0S ESTUDAR": PRINT 
: INPUT "QUAL A TABUADA QUE 
U0CE QUER VER? "?N: IF N < 0 
OR N > 10 THEN 70 
80 HOnE : VTAB 6: HTAB 14: PRINT 
"TABUADA DO "N: HTAB 13: FOR 
A = 1 TO 14 + (N = 10): PRINT 
"=";: NEXT : PRINT : PRINT 
90 FOR A = 0 TO 10: HTAB 15: PRINT 
N" X "A; T AB < 22 ) "= "N * A: FOR 
B = 0 TO 15:C = PEEK (49200 



100 

110 

120 

130 

140 



150 



160 



170 



180 



): NEXT : NEXT 

VT AB 22: HTAB 1: PRINT N$", 

TUD0 CERT0? (S/N): " ; : GET R 
$: IF R$ < > "S" AND R$ < > 

"N" THEN 100 

IF R$ = "S" THEN HOnE : GOTO 
50 

VTAB 22: HTAB 1: PRINT "CLAR 

0 QUE ESTA!!!" SPC( 20): FOR 
A = 1 TO 15: PRINT CHR$ (7) 

; : next : hohe : goto 50 
HonE. : vt ab 6: htab i: input 

"ATE 7 QUE TABUADA VOCE JA 7 S 
ABE? "?N: IF N < 0 OR N > 10 
THEN 130 

HOHE : PRINT "PR0VA DE TABUA 
DA PARA "N$: PRINT : PRINT : 

FOR A = 1 TO 20:N1 = INT ( 

(N + 1) * RND (1)):N2 = INT 
((N + 1) * RND (1)>: PRINT 
: FOR B = 1 TO 29: PRINT "-" 

;: next : print "QUESTA0 "a: 
PRINT "QUANTO E 7 "Nl" X "N2 
" = : INPUT R 

IF R < > Nl * N2 THEN PRINT 

nE$(5 * rnd (l));: for b = 

1 TO 20:D = PEEK (49200): NEXT 
: NEXT : GOTO 170 

PRINT "nUITO BEH "N$" !!!"?: FOR 
B •= 1 TO 5: PRINT CHR$ -<7); 

: next :c = c + l: next 

HOHE : VTAB 6: PRINT "RESULT 
ADO": PRINT “=========": PRINT 

: PRINT : PRINT : PRINT "Non 
E" TAB ( 15)": "N$ : PRINT "TA 
BUADA LiniTE: "N 
PRINT "CERTAS" TAB ( 15)": "C 
: PRINT "ERRADAS" TAB ( 15)": 

"20 - C: PRINT "NQTA FINAL" 

TAB ( 15)": "5 * c: PRINT "R 
ESULTAD0" T AB ( 15)": "N0$( INT 
(C / 4) - (C = 20)): END 



uma rotina na ROM chamada KEYIN, localizada a partir do 
endere^o SFD1B, que tern por furn^ao ficar varrendo o tecla- 
do, esperando que uma tecla seja pressionada. Enquanto espe- 
ra (o processador trabalha muito mais rapidamente que qual- 
quer datilografo profissional ), o processador fica constante- 
mente mudando o valor dos bytes 78 e 79 atraves de uma fun- 
9 ^o predefinida pelo fabricante do equipamento. 

Desta forma, mesmo que queira, o usuario nao conseguira 
fazer com que a semente para gera^ao de numeros randomicos 
possa ser manipulada devido a altissima velocidade com que 
ela muda. Fica, portanto, assegurada a aleatoriedade das fun- 
goes de geragao de numeros randomicos. 

Usaremos estas fungoes em programas de apheagao educa- 
cional, coisa simples, para que iniciantes em aritmetica basica 
possam aprender a tabuada. Com relagao a todos os enderegos 
que foram abordados aqui, quero, em uma outra oportunida- 
de. explica-los com mais detalhes, pois podem ser muito uteis 
a qualquer programador. £ lamentavel que informagoes como 
estas nao sejam encontradas em nenhum manual do proprie- 
tario e que tenliam que ser obtidas atraves de exaustivas pes- 
quisas aos programas interpretadores da ROM ou de consultas 
diretas aos engenheiros e analistas que criaiam o equipamento. 

Temos. na listagem 1, um programa em linguagem Pascal 
cuja fungao e ensinar a tabuada para criangas. Sua utilizagaoe 
muito simples e creio serem desnecessarias maiores cxplica- 



goes. O programa foi testado em um compilador Apple Pascal 
e funcionou satistatoriamente. 

Na listagem 2 temos um outro programa que tambem pode 
ser utilizado para aprendizagem da tabuada, desta vez em BA- 
SIC Applesoft. 

A execugao tern duas fases especificas. Na primeira, a crian- 
ga pode solicitar ao equipamento que mostre, no video, qual- 
quer uma das tabuadas para que ela possa estuda-las. Em segui- 
da, na segunda fase, o aluno e convidado a responder a algumas 
questoes formuladas alcatoriamente pelo micro e, ao final de 
algumas respostas, e emitido um relatorio de desempenho com 
a respectiva nota obtida. (Voce podera notar que o programa 
possui caracteristicas marcadamente conversacionais com o 
usuario, de forma a tomar sua utilizagSo simples ate por uma 
crianga). 

Para geragao das questoes foram utilizadas as fungOes para 
randomizagao que aqui foram explicadas. Aiesta. Uma aplica- 
gao educacional bastante simples e facil de ser criada. 



Rudolf Horner Junior cursa CiSncia da ComputaQSo na Uni camp e 6 sd- 
cio da Po tenet a! Software , firma que produz programas especiais para 
microcomputadores em Campinas. SP. 
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Conheca mais dois tipos de formato de gravacao e descubra, com a ajuda deste 
utiUtario para a I inha TRS-80, a formatacao de qua/quer fita cassete 



Descubra o formato 
de uma fita cassete 



N o numero 21 de MICRO SIS* 
TEMAS, tivemos um artigo 
do Sr. Daniel Augusto Mar- 
tins descrevendo o formato 
de grava^ffo em cassete dos programas 
em BASIC e em linguagem de maquina 
(SYSTEM). No entanto, alem destes 
dois tipos de formata^o, dois outros 
foram padronizados pela Radio Shack e 
Microsoft, a saber: 

• arquivos de dados utilizados pelo 
BASIC; 

• programas em mnemonicos Z80, cria- 
dos pelo programa Editor/Assembler 
(EDTASM). 

Neste artigo, abordaremos estes no- 
vos tipos de formata^o, incluindo um 
utilitario para equipamentos da linha 
TRS-80 Modelo I (que tambem podera 
ser adaptado para os que seguem o Mo- 
delo III), cuja fun^ao e revelar o modo 
como foi gravada uma fita cassete para 
estes equipamentos. 

ARQUIVOS DE DADOS 
UTILIZADOS PELO BASIC 

Devido ao fato de que o prefixo (255 
bytes 00) e o byte de sincronismo (byte 
A5) devem ser lidos cada vez que o gra- 
vador e acionado, os arquivos de dados 
s£o armazenados de modo muito pouco 
eficiente. 

Cada vez que um PRINT # -1 ou 
INPUT # -1 e executado, um novo pre- 
fixo e byte de sincronismo sSo gravados 
ou lidos. Portanto, durante a elabora^o 
de programas em BASIC que utilizem 
arquivos em fita, procure acumular o 
maior numero possivel de dados em um 
PRINT# -1, respeitando, e claro, o li- 
mite de 256 bytes. Isto ja devera dimi- 



Joao Henrique Volpini Mattos 



nuir bastante o tempo de execu^ao de 
seus programas. 

Existem tambem outras formas de 
agilizar a gravacao, mas voce sabia que 
os manuais dos nossos micros est2o er- 
rados? Voce pode perfeitamente gravar 
um numero e le-lo mais tarde como se 
fosse uma string , ou gravar uma string 
que consista apenas de digitos e le-la 
mais tarde como um numero. Pois e, ao 
que parece, os fabricantes nacionais fize- 
ram apenas uma tradu^ao do manual do 
TRS-80. . . e entraram pelo cano. 

Os dados da lista de itens de um 
PRINT # -1 sao gravados em seqiiencia , 
separados por virgulas. Strings sSo grava- 
das como uma serie de caracteres. Nu- 
meros, sejam inteiros, reais de precisfo 
simples ou dupla, sao gravados como 
uma string de digitos, tendo um espa^o 
em branco atras e outro na frente (se o 
numero for negativo, tera um sinal de 
menos ao inves do espaso em bran- 
co na frente). 

Tenha cuidado na leitura de arquivos 
de dados. Se o numero de itens da lista 
do INPUT # — 1 nSo for igual ao da lista 
do PRINT#- 1 correspondente, com 
certeza voce caira numa conditio de 
erro. Tome muito cuidado tambem ao 
gravar uma string , nao permitindo que 




Figura 1 - Formato gravado por PRINT # -7 



ela contenha virgulas, pois obviamente 
havera problemas na leitura. 

PROGRAMAS 
EM MNEMONICOS Z80 

0 programa Editor/ Assembler 
(EDTASM) grava os programas com a 
seguinte formatacao: 

- prefixo (255 bytes 00); 

- sincronismo (byte A5); 

- cabecalho (byte D3) indicando o tipo 
de arquivo ; 

- nome do programa (seis bytes) codifi- 
cados em ASCII (se o nome tiver menos 
que seis caracteres, os espa^os a direita 
s£o preenchidos com brancos (byte 20)); 

- o programa em si ; 

- o finalizador de arquivo (byte I A). 




Figura 2 - Formato de um programa 
em mnemonicos Z80 
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Figura 3 


00060 


SELVEL 


EQU 


3042H 


00100 


DISP 


EQU 


021BH 


00180 




CALL 


SELVEL ; Seleciona a baud rate 



Os numeros correspondentes is li- 
nhas do programa sao codificados em 
ASCII, digito por digito, num total de 
cinco bytes. Entretanto, o bit 7 (parida- 
de) destes bytes e setado. 

As linhas do programa sSo codifica- 
das integralmente em ASCII. A tabula- 
9 ao (tecla -* ) e codificada como 09 e o 
fim de linha (tecla ENTER) e indicado 
por 0D. 

O PROGRAMA CASMEM 

Algumas vezes nos defrontamos com 
algumas fitas que nao s£o formatadas de 
acordo com os padroes usuais (porexem- 
plo, as fitas de dados do processador de 
textos Electric Pencil II ou do jogo Space 
Wars). Algumas fitas necessitam ate de 
um programa especial para carrega-las, 
dificultando a pirataria. Que tal tentar 
descobrir como estas fitas sSo formata- 
das? 



O programa Casmem foi escrito para 
este tipo de tare fa. Ele carrega tudo o 
que vier apos o byte de sincronismo 
num buffer da memoria que come^a em 
7050H (28752 em decimal). Para execu- 
ta-lo, coloque a fita desejada no grava- 
dor e aperte a tecla PLAY. Estando no 
nivel de comando do DOS, digite CAS- 
MEM<ENTER> 

O programa acionara o motor do gra- 
vador e ira procurar o prefixo e o sincro- 
nismo. Assim que encontra-los, aparece- 
rao dois asteriscos no video. A partir 
dai, a cada dois bytes lidos, aparecera 
(com muita velocidade) um carater qual- 
quer no lugar de um dos asteriscos (este 
carater e o ASCII do primeiro byte lido). 

Voce sabera que o programa foi com- 
pletamente lido quando o carater ficar 
estabilizado. Aperte entao o bot£o de 



RESET do computador e utilize um 
programa apropriado para analisar o que 
foi carregado no buffer (T- BUG , DEBUG , 
MON 3, 4 ou 5, SUPERZAP etc.). 

Casmem foi desen volvido para micros 
da familia TRS-80 Modelo I, mas quern 
tiver um equipamento compativel com 
o Modelo III tambem podera utiliza-lo, 
bastando apenas algumas altera^oes no 
programa: deletar as linlias 60 100 e 
180 e inserir as linhas que est£o na figu- 
ra 3. 

O programa entao perguntard, antes 
de acionar o motor do gravador, qual a 
taxa de transference ( baud rate) da fita. 
O CP-500, por exemplo, perguntaria: 
CASS?. Digitando A ou<ENTER>,a ve- 
locidade sera de \ 500 baud. Digitando 
B, sera de 500 baud. ■ 



r~ 1 


















Casmem 






oooi o ; 




*** GASMEN *m 




00020 5 Este pro?ra*a le todos as bites bravados no cassete 




00030 5 (apos 


o byte de sincronisto) e 


os ccloca na buffer de ae- 




00040 ? iona 


Que 


oaeca et 705!’H. 




01C9 


00050 CL3 


EQU 


OIC^H 




0212 


W060 SELCA3 


EQU 


0212H 




0235 


00(^70 LEBYTE 


EQU 


0235H 




0296 


00080 LESINC 


Efi U 


0296H 




3C3F 


00090 CSD 


EQU 


3C3FH 




067 


00100 DISP 


EQU 






7050 


00110 BUFFER 


ECU 


7050H 5 


Inicfo dc buffer 


7000 


00120 


QRG 


7000H 




7000 CDC901 


00130 INICIO 


CALL 


CLS ? 


LiAoa a tela 


7003 212570 


00140 


LD 


HLiNCNE 




7006 CD6744 


00150 


CALL 


DISP \ 


Nostra o nci^e dc orn^aea 


700° F3 


00160 


DI 




Desa/aa c reloeio 


700ft AF 


00170 


XOR 


A ? 


Selecisna c cassetetl 


im CDI202 


00180 


CALL 


EELCAS ? 


e life o seu aotar 


700E CB9602 


00190 


CALL 


LESINC 


Le prefixo e smcromsio 


7011 1I3F3C 


00200 


LD 


DE.CSD ; 


Inforaa pcsirac do video 


7014 215070 


00210 


LD 


HI, BUFFER 


e o inicio do buffer 


7017 CD3502 


00220 LER 


CALL 


LEBYTE 5 


Le m bite 


701* 77 


00230 


LD 


(It), A 


e c Poe no buffer 


7018 12 


00240 


LD 


(DE),A 


e tajbea no video e* ASCII 


701 C 23 


00250 


INC 


HI ? 


Proxiaa ocsicao do buffer 


.701 D CD3502 


00260 


CALL 


LEBYTE 5 


Le outro byte 


7020 77 


00270 


LD 


(HL)rA 5 


e o Poe no buffer 


7012 23 


00280 


INC 


hl ; 


Proxiaa posicao do buffer 


7022 C31770 


00290 


JP 


LER ; 


Tudo de novo 




00300 J Now do pro^raia 




7025 


00310 N3HE 


DEFfl 


CASHEW ***’ 






2A 2A 2A 20 43 41 53 4D 45 4D 20 2A 
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7033 OD 


00320 


DEFB 


ODH 




7034 


00330 


END 


INICIO 




00000 total 


errors 









Engenheiro naval, terminando Pds-Gradua- 
C§o na COPPE/UF RJ, Joao Henrique Volpini 
Mattos tem cursos de CP/M, Assembler e 
FORTRAN pela UFRJ, COBOL pela 
NUCEMPRO, conhece SPSS e trabalha ha 
quatro anos com o BASIC (nao exclusivamen- 
te). Possui um microcomputador D - 8002 
compat/vel coin o TRS-80 Modelo I, com 
p/aca de CP/M. Atualmente trabalha em 
Arquitetura Naval no Esta/eiro Maui, uti/i- 
zando um IBM 434 1 . 



CURSOS 

LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TfiCNICAS E 

otimizacAo 

MICROIN FORM AT 1C A 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMAQAO DE PROGRAMADORES 
DURAQAO: 9 MESES 
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Falta de componentes 



fabrica o equipamento DV 600. 
com dots processadores — Z 80A 
e 8088 — e em breve langarS no 
mercado a placa com processa- 
dor 8088 para o modelo cano- 
la, diz que a falta de componen- 
tes 6 contornavel e nao chega a 
comptometer a produgao. 

A Microtec, fabricante do PC 
2001, 16 bits, tern uma produ- 
gao mensal de 40 equipamentos 
e, devido a pequena quanttdade, 
a dificuldade em encontrar com- 
ponentes pode ser contornada. 
"Temos sentido alguma dificul- 
dade nesta parte mas ainda nao 
chegou a atrapalhar a produgao, 
porque antes de langar o equipa- 
mento fizemos um estoque", 
afirma Arthur Cesar Falcao, Di* 
retor Comercial da empresa. "O 
problema sera quando aumen- 
tarmos a produgSo e isso mevi- 
tavelmente ir£ repercutir no 
custo do equipamento", com- 
plete ele. Segundo Falcao, o es- 
toque da Microtec deve durar 
ate final de margo. 

A questSo da falta de com- 
ponentes afeta mais diretamente 
os fabricantes cujos equipamen- 
tos nao foram homologados pela 
SEI. Estes nao tern direito a co- 
ta de importagafo pela Cacex e 
acabam tendo que comprar de 
revendedores aqui mesmo. com 
pregos sempre sujeitos a altas, 
de acordo com a demanda. 



A associag5o entre a IBM e a 
Intel, fabricante dos processado- 
res 8088, de 16 bits, e 8085 e 
8086. de 8 bits, ainda nao cau- 
sou maiores problemas aos fabri- 
cantes nacionais de microcom- 
putadores. Para Cileneu Nunes. 
Gerente de Produto da Scopus, 
apesar da Intel ter reservado 
75% de sua produgao do 8088 
para IBM, e 25% para os demais 
fabricantes. esta quantidade tern 
sido suficiente. Segundo ele, a 
Scopus 6 o maior comprador da 
Intel entre a America do Sul, 
Central e Africa, e o bom rela- 
cionamento entre as duas em- 
presas propiciou a formagSo de 
um estoque grande, tanto do 
processador 8088 comodos LSIs 
usados no Nexus. "Existem pro- 
blemas mas n5o sao insuper3- 
veis, e para 84 estamos total- 
mente garantidos", afirma Cile- 
neu. 

As opinioes variam em rela- 
gao & falta de componentes no 
mercado. O engenheiro Newton 
Lavieri, da SoUec. por exemplo, 
que fabrica o microcomputador 
EGO, tamb6m de 16 bits, afirma 
que os componentes estao caros 
e muitas vezes nao s5o encontra- 
dos no mercado. Segundo ele, 
isto se deve muito ao revende- 
dor que joga com a demanda su- 
bindo os pregos. Fernando Ma- 
luf. engenheiro da Danvic, que 



SUCESU anuncia 



INFORMATICA 84 



do seus produtos e servigos para 
um publico previsto acima de 
200 mil visitantes. A FOCO, em- 
presa encarregada da administra- 
gao e vendas da Feira, deu inicio 
a comercial izagao de 12 mil me- 
tros quadrados da 2rea reservada 
3 industria de Informatica para a 
exposigSo de seus produtos. 



A SUCESU anunciou a 
realizagao do INFORMATICA 
84 para os dias 5 a 1 1 de novem- 
bro proximo, no Riocentro, Rio 
de Janeiro. O even to compreen- 
de o XVII Congresso Nacional 
de Informatica e a IV Feira In- 
ternacional de Informatica, 6 
promovido pela SUCESU — Na- 
cional e realizado pela SUCESU 
— Rio, sob o patroci'nio da Se- 
cretaria Especial de Informatica 
e do Ministerio das Comunica- 
goes. 

Estima-se que mais de 200 
expositors estarao apresentan- 



De acordo com a planta tra- 
gada para o Informatica 84, ha- 
ver3 quatro pavilhoes no Rio- 
centro: o central, o de exposi- 
goes, o de congressos e ainda um 
destinado a microempresas. 



PC 2001 
em escala 
industrial 



Premio 

CLADI 



O Centro Latino Americano 
de Desenvolvimento de lnform3- 
tica, fundagSo vinculada ao Go- 
verno do Estado de Pernambu- 
co. instituiu em 1983 o premio 
Cladi Esse premio tern o objeti- 
vo de estimular a pesquisa e a 
produgSo cientifica e tecnolbgi- 
ca no campo da Informatica, na 
regiSo e no pai's. Podem concor- 
rer teses ou dissertagoes de mes- 
trado aprovadas em Cursos de 
Centros de P6s-Graduagao em 
Informatica. Cada Centro pode- 
r^ inscrever at6 tres teses ou dis- 
sertagoes. Os trabalhos concor- 
rentes terSo que ter sido aprova- 
dos nos dois anos anteriores & 
realizagao do premio. Ao autor 
do trabalho vencedor cabera um 
diploma e um premio em dinhei- 
ro no valor de Cr$ 1 milhao, 
al6m da publicagao do material. 
O prazo para inscrigSo £ ate o 
ultimo dia util de margo. O en- 
derego do CLADI 6 Rua Jos6 
Gongalves de Medeiros, 96. Ben- 
fica. Recife. CEP 50. OCX), PE. 



JS esta sendo produzido em 
escala industrial o PC 2001 , 
microcomputador de 16 bits, 
compativel em hardware e 
software com o IBM PC e 
fabricado pela Micro tec 
Sistemas Industria e Co me ret o 
Ltda. 

O PC 200 1 possui processador 
Intel 8088 de 16 bits com 
velocidade de 5 MHz ; 
memdria ROM de 8 at 4 40 Kb 
e memdria RAM de 64 Kb a 1 
Mb; cinco conectores de 
expansSo de fumades; teclado 
destacado de 85 ted as; 
moni tores de video em fdsforo 
verde ou policromaticos ; 
interfaces para atd 16 
terminais para multiusuSrios; 
rod a, inclusive , CP/M 86; 
linguagens BASIC, 
FORTRAN, COBOL, 
Assembler e outras, aldm de 
expansOes de memdria, 
com uni canoes etc. 



PC 200 1 : micro de 16 bits da Microtec 
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Macintosh, a nova cartada da Apple 



A Apple Computer esta 
apostando tudo no seu novo 
produto: o Macintosh, uma m£- 
quina r^pida, de 32 bits, com as 
facilidades grdficas operadas na 
tela atrav6s de um mouse, que 
dirige o cursor. Com essa nova 
cartada a Apple espera recuperar 
o terreno perdido no ano passa- 
do, na area das mdqumas de uti- 
I izagao pessoal, para a IBM. com 



seu bem-sucedido IBM -PC de 16 
bits. 

O Macintosh e o segundo 
passo da Apple Computer a ca- 
minho da anunciada e potente 
geragSo de micros pessoais de 32 
bits. O primeiro passo foi o Lisa, 
um langamento mal-sucedido da 
empresa, no ano passado. 

O Macintosh, em sua versSo 
basica, inclui um visor branco e 



preto de nove polegadas com de- 
finigao de 512 x 342 pontos, 
duas portas seriais (para ligagao 
com perifgricos), chips de som e 
fala, um teclado e um mouse. 
Para armazenamento de massas 
de dados, h3 um microdisc -drive 
de 3.5" e capacidade de 400 
Kbytes de cada lado (o equiva- 
lente a 100 pSginas de texto em 
espago dois). 



Nos Estados Unidos, cente- 
nas de empresas j3 est£o desen- 
volvendo programas e periteri- 
cos para a m^quina. Um dos 
programas disponiveis 6 o 1-2-3 
da Lotus, que integra aplicagoes 
de negbcios. Dois dos progra- 
mas, processamento de palavras 
e graficos, acompanharao o 
equipamento. 



MC da Omega 

A Omega est2 entregando as lojas as primeiras unidades de seus mi- 
crocomputadores da linha MC 100. 200 e 400. langados na Feira de 
Informatica. O MC 100 tern UCP com dois processadores. 6502 e 
Z80; sua configuragao basica e composta por teclado alfanum^rico e 
num^rico reduzido. monitor de video de fbsforo verde, uma unidade 
de disquete de 5 1/4’’ e memoria de 64 Kbytes de RAM expansi'vel 
at6 310 Kb Nesta versao, o prego do MC 100 e de 335 ORTN O MC 
200 tambem tern dois processadores, sendo um deles de 16 bits (8088); 
sua memdria para usu£rio comega em 72 Kbytes, podendo se expandir 
at6 328 Kb, e assim como o MC 100, o 200 tambem aceita disco win- 
chester de 5 Mbytes, e seu prego na versao basica 6 de 601 ORTN. O 
terceiro equipamento fabricado pela Omega e o MC 400, um micro 
compativel com Apple, com processador 6502, memdria inicial de 64 
Kbytes de RAM expansi'vel ate 128 Kb. Sua versao basica 6 composta 
por UCP, teclado alfanum6rico, interface para monitor de video, sai'da 
para gravador cassete, sai'da sonora e sai'da para dois joysticks. Nesta 
configuragao, o MC 400 custa 160 ORTN. A produgao inicial, segun- 
do a 6mega. e de 25 unidades por m6s de cada um dos equipamentos. 

Software para o TK 2000 

Acompanhando o langamen- Multicard e Multiestoque. O pri- 
to do TK 2000 Color da Micro- meiro permite o cadastramento 
digital, a Multisoft estara colo- de clientes e o segundo possibili- 

cando a disposigSo dos usu£rios ta um pritico controle de esto- 

deste novo micro sua linha de que. Na linha de jogos de agao, 

aplicativos comerciais, al£m de Auto-estrada, Multi-Invader, Sa- 

jogos de alta resolugao gr^fica. botagem e PSnico tambem po- 

A princi'pio, dois programas derao ser adquiridos. Posterior- 

em fita cassete, para uso profis- mente, estes programas tambem 

sional, serSo comercializados: serao oferecidos em disquete. 



DSI na area educacional 

A DSI — Distribuidora de dem ter quantas aulas comple- 

Sistemas e Informatica Ltda. — mentares desejarem sem pagar 

esta expandindo suas atividades mais nada por isso." 

com a criag§o da DSI Educacio- 
nal, empresa voltada para o ensi- Os equipamentos usados nos 

no de cursos relacionados a area cursos ser5o da Sid, Prolbgica e 

de Informatica, no Rio de Janei- Microdigital e os melhores alu- 
ro. nos ter£o estigio garantido na 

O objetivo da nova empresa, prbpria DSI Distribuidora. As 

segundo seu coordenador Clau- inscrigoes para o cursode BASIC 

dio Trotta, a dar aos alunos um ja estao abertas e os interessados 

tratamento diferenciado. "A poderao obter informagoes pelo 

principal diferenga existente en- tel.: 284-3490 ou na Rua Mariz 

tre os nossos cursos e os outros e Barros, 71 1, Tijuca, Rio de Ja- 

6 que, no nosso, os alunos po- neiro. 

A nalistas da A DP dao 
\ suporte de marketing 

A ADP Systems criou um Departamento de Suporte de Mar- 
keting constituido de analistas que tern como atividade principal 
estudar e levantar as necessidades reais de cada segmento do mer- 
cado e de cada cl iente em particular. I 

Um exemplo disso a o servigo denominado SolugSo Global, 
especi'fico para as empresas que tern um micro. Rotinas mais ela- 
i boradas, como Folha de Pagamento, Contas a Pagar, Contabilida- 
de etc. sSo feitas integralmente pelo bureau da ADP, enquanto o 
micro efetua as rotinas superdinamicas, como faturamento, esto- 
que e relatonos financeiros. 




* A Microcraft , fabricante de placas da linha Apple, esta langando 
um mmiteclado para liqar a equipamentos compati'veis com Apple 
para utilizagafo de Visicalc. Este teclado tern 24 teclas num^ricas e de 
fungoes. * Reconhecido como o melhor micro brasileiro de sua linha 
por um diario paulista, o TK 85 da Microdigital foi apontado por es- 
pecial istas da area como o grande sucesso do mercado de 83. * A Soft 
Consultoria em Processamento de Dados Ltda. esta desenvolvendo o 
bDRM - Banco de Dados Relacional para Microcomputadores . 0 sis- 
tema 6 compativel com o DBASE II. mas, a partir da experiencia de 
tacnicos da Soft, apresenta novos comandos com base nas nossas ne- 
cessidades. O bDRM sera comercial izado a partir de maio. * A Imar6s 
esta comercializando a placa de comunicagao Smcrona Essa placa 6 
utilizada para ligagoes entre microcomputadores da linha Apple e 
computadores de grande porte da IBM. com software BSC1 e BSC3. 
O prego do equipamento 6 de 220 ORTN e ele se encontra a venda 
nas lojas Imar6s de Sao Paulo. * Ainda nao havia chegado as lojas espe- 
cializadas do Rio de Janeiro, em fevereiro, os dois novos langamentos 
da Sysdata, o TColor, compativel com o TRS Color Computer e o 
Sysdata III, equipamento compativel com o TRS-80 modelo III, para 
aplicagbes mais profissionais. Segundo os lojistas ainda nao h3 previ- 
sSo para o recebimento desses equipamentos. * J3 est5o sendo comer- 



cializadas as primeiras unidades de disco de 5 1/4" da Novo Tempo 
Ltda. para o micro Color 64, elaborado a partir do TRS-80 Color 
Computer. * A Execplan, Sao Paulo, colbcou no mercado o software 
MICRO FCS. Esse sistema, que rodava apenas em computadores de 
grande porte, agora est3 em nova vers5o para os compati'veis com o PC 
da IBM O MICRO FCS 6 um software de planejamento empresarial 
e de apoio a decisSo e 4 um simulador de situagoes economico-finan- 
ceiras. A Compucenter j4 formalizou um contrato para a comerciali- 
zagao e treinamento do MICRO FCS. * est5o em fase de instala- 
gao os 30 micros I 7000 da Itautec vendidos ao Senado Federal. Cada 
Senador passa a dispor, em seu gabinete, de um micro capaz de armaze- 
nar e fornecer todos os dados de que precisar O equipamento tambem 
pode ser usado como terminal do computador central do Senado. *0 
novo Diretor-Presidente da PRODAM - Companhia de Processamen- 
to de Dados de SSo Paulo . Joaquim Carlos Gouvea, 6 engenheiro civil 
formado pela Escoia Polit^cnica da Universidade de Sao Paulo. Tern 
larga experiencia em cargos de diregao em i^ea de processamento de 
dados em algumas das maiores empresas do pais, onde coordenou 
areas de O&M, anSlise de sistemas, software, programagao e operagao 
de computadores. 



» 
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Apple em kit 



Troca de informa^oes 
e facilidades de compra 

Inaugurado recentemente em Belo Horizonte, o Micro Clube do 
Brasil tem como objetivo aproximar os atuais e futuros usu^rios de 
microcomputadores para a troca de id^ias, informagoes, experiences e 
tecnologia. Segundo os dirigentes da entidade, essa aproxima^ao ser3 
feita atrav^s de reunibes, palestras, cursos e uma biblioteca t^cnica es- 
pecial izada. 

O clube abrange todos os tipos de equipamentos nacionais (que es- 
tarao expostos no seu show-room) e, para fomentar o uso dessas m3- 
quinas, serao oferecidas aos associados condicoes especiais para a aqui- 
sipao de hardware, software e acessbrios, mediante acordos diretos 
com fabricantes ou representantes. 0 Micro Clube do Brasil fica na 
Rua Parafba, 1441, lojas 6 e 8, Savassi, Belo Horizonte — MG, CEP. 
30000, tels. : (031) 225-2617/1973. 

CP/M para CP-500 

Um dispositivo que torna o CP-500 compativel com o Sistema 
Operacional CP/M versSo 2.2 e amplia o video para 80 colunas por 24 
linhas 6 a novidade que a PSI — Projetos e Servipos em lnform$tica 
esta colocando no mercado. 

Este novo produto, PSI-M, £ baseado no controlador 6845 da Mo- 
torola, que passa a efetuar todas as funpSes de gerapSo e formatapao 
de video. Pode ser encontrado nas versbes com 16 ou 64 Kbytes de 
RAM, que sao somadas aos 48 Kbytes ja existentes no CP-500. Apre- 
senta amda possibilidade de utilizapao de diversos sistemas operacio* 
nais (CP/M, DOS500, NEWDOS etc.), grapas a um firmware prbprio, 
contido em EPROM de 4 Kbytes. 

Acompanham o PSI-M dois manuais completos (de instalap§o e de 
utilizapao) juntamente com um disquete, contendo um sistema opera- 
cional compativel com o CP/M ver sao 2.2 e diversos utilit£rios, inclu- 
sive algumas rotinas especiais para compatibilizar o CP-500, em ter- 
mos de formatapao de disquetes, com outros equipamentos (IBM, 
Apple, Sistema 700, etc.), tornando possivel a leitura/gravapao de ar- 
quivos nas formatapbes mais comuns. 



Em 

Contagem, 

a Bell 

do Brasil 



Inaugurada na cidade de Con- 
tagem, Minas Gerais, a Bell do 
Brasil, uma loja de microcompu- 
tadores, conta com um show- 
room para vendas e demonstra- 
pbes de micros, como o Naja e 
os da Prolbgica, al6m de um la- 
boratbrio de pesquisa para de- 
senvolvimento de projetos e na- 
cionalizapbo de equipamentos 
eletrbnicos. 



A loja est4 oferecendo tam- 
bbm curso de linguagem BASIC, 
com durapSo de 70 horas, divi- 
dido em trds etapas: BASIC-Teo- 
rico. BASIC-Audiovisual, BASIC- 
Pr^tico. O curso 6 noturno e sbo 
utilizados os computadores Naja 
e os da Prolbgica. Maiores infor- 
mapbes na Av. Joao A. da Fon- 
seca Silva, 1131. Tel.: (031) 351- 
3236. 



Conserva9ao de disquete 



A Microcontrol, empresa que 
at£ entao atuava na 3rea de con- 
troladores de video, estd lanpan- 
do o Applekit — kit de micro- 
computador, com componentes 
vendidos separadamente para a 
montagem de um equipamento 
compativel com Apple. 

Sao os seguintes os compo- 
nentes que estao sendo ven- 
didos pela Microcontrol: Apple- 
kit 65000, placa de circuito im- 
presso (11 ORTN); 65010, con- 
junto de soquetes, conectores, 
resistores e capacitores (15 
ORTN); 65020, conjunto de 
semicondu tores, TTL's. LSI e 
memorias (45 ORTN); 65100, 
conjunto de teclado alfanum6ri- 
co com 52 teclas e componen- 
tes. circuito impresso (23 
ORTN); 65200, fonte de ali- 
mentapao tipo chaveado (17 
ORTN); 65300, caixa de micro- 
computador em poliuretano 
(6,5 ORTN) e Applekit 65400, 
manual de montagem e teste de 
micro (3 ORTN ). 

O sistema Applekit possui 
microprocessador 6502, memb- 
ria RAM de 48 Kbytes, expansi- 
ve! at6 64 K e 12 Kbytes de 
ROM. Pode-se conectar ao Ap- 

Tesbi na Vila 

esta funcionando no 
bairro carioca de Vila Isabel a 
nova loja da Tesbi, que ofere- 
ce cursos, manutenpSo de equi- 
pamentos, software prbprio e 
de terceiros, livros e revistas 
especializados e micros da Pro- 
lbgica. Microdigital, CDSE, Di- 
gitus e Dismac. 

A inaugurapao da loja tam- 
bem marca a divisao da Tesbi 
em duas empresas: Tesbi Enge- 
nharia de Telecomunicapbes 
Ltda., que oper^ ha sete anos 
nas areas de telefonia e radio- 
transmissSo. e a nova Tesbi In- 
form4tica Ltda., localizada a 
Av. 28 de setembro, 266, loja 
110, CEP. 20.551, Rio de Ja- 
neiro — RJ, tel.: (021) 284- 
6949. 



plekit um monitor de video ou 
televisao modificada, operando 
em modo texto ou gtefico. O 
sistema pode ser programado 
para emitir sons, tem saida para 
gravador cassete e para disc -dri- 
ves de 5 1/4" e permite conexao 
simultanea para at6 8 cartbes 
perifericos. Entre os cartbes ja 
disponiveis. na prbpria Micro- 
control, estSo interface paralela 
para impressora. cartSo para au* 
mentar a capacidade do terminal 
de video para 80 colunas x 24 li- 
nhas. cartSo expansSo de memb- 
ria RAM, de 128 Kbytes. cartSo 
de interface para quatro disque- 
tes de 5 1/4", interface para 
transmiss5o de dados por linha 
telefonica, buffer com 32 Kby- 
tes, conversor A/D e D/A com 
16 canais de entrada e saidas, 
sintetizador de voz, cartSo com 
processador 8088 de 16 bits, 
controlador de disquetes de 8" 
e interface inteligente com sai- 
das paralela e serial e real time 
e clock calenddrio. 

Maiores informapbes sobre o 
Applekit e os cartbes perif^ricos 
podem ser obtidas na prbpria 
Microcontrol, em SSo Paulo, 
pelos telefones (011) 814-0446 
e 814-1110. 



Para os usudrios de disque- 
tes, Paulo Neves, t6cnico da Da- 
ta Ribbon, da os seguintes con- 
selhos: mante-los sempre dentro 
do envelope e seguir as instru- 



pbes que vem no mesmo. Esse 
envelope, com o disquete, deve 
ser conservado em lugar fresco e 
sem pb, pois funciona como um 



disco comum; o pb pode causar 
alteragbes. Para a limpeza da ca- 
bepa do drive o unico produto 
existente 6 o gas treon. 



Sistemas da Ramo 



A Ramo Sistemas Digitais de Sio Paulo esta comercializando 
os seguintes programas: Aphcagdes no Mercado Financeiro , que 
controla creditos e ddbitos de clientes, a valorizapSo e controle 
de vencimentos de aplicapoes e papais; esse programs, roda no 
1-7000 da Itautec, Sistemas 700 e 600 da Prolbgica. Acurso 6 um 
sistema conversacional para controle de notas, mat^rias e alunos; 
esse programa roda no CP -500, Jr Sysdata, DGT - 100 e Naja. Cli- 
entes 6 um programa que compoe cadastros, possibilita a edip£o 
de fichas, e elimina a necessidade de manuais complicados; roda 
no 1-7000 da Itautec. Sistemas 600 e 700 da Prolbgica, CP-500, 
Naja e Jr Sysdata. Custos Industrials a um sistema conversacional 
para a elaborapao dos custos industrials; roda no 1-7000 da Itau- 
tec e Sistemas 600 e 700 da Prolbgica. Estoque a um sistema 
conversacional que gerencia financeiramente e fisicamente esto- 



ques, e acompanha a valorizapfo dos produtos; roda no 1-7000 
da Itautec, Sistemas 600 e 700 da Prolbgica, CP-500, DGT-100, 
Naja e Jr Sysdata. ExplosSo de materials controla pedidos, fa z 
cilculos, programapao de material e mSo-de-obra necess^ria para 
fabricapao; o sistema roda no 1-7000 da Itautec, nos Sistemas 
600 e 700 da Prolbgica, CP-500, DGT-100, Naja e Sysdata. Cust- 
Cons — Orpamento e Cronograma e Custo de Obras, o sistema 
acompanha o decurso de uma obra desde o projeto at6 a fase fi- 
nal; roda no 1-7000 da Itautec e nos sistemas 600 e 700 da Pro- 
Ibqica. Pedidos permite o controle de pedidos, orientando o 
usu£rio quanto a prazos de entrega e quantidade; o sistema roda 
no 1-7000 da Itautec, Sistemas 600 e 700 da Prolbgica, CP-500, 
Digitus, Naja e Sysdata. O enderepo da Ramo 6 Rua Dep. Lacer- 
da Franco, 120, conj. 52, tel.: (011) 211-3119, Sao Paulo. 
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APPLEKIT - Kit de microcomputador tipo Apple' 



ttiScrocotifrol 

Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1 1 10 
Sao Paulo - Brasil. 



Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



| fin 15 



APPLEKIT 65020 



APPLEKIT 65400 



APPLEKIT 65300 



APPLEKIT 65100 



APPLEKIT 65000 



1 APPLEKIT 65000] Pla ca de c ircuito impresso. 1 AP PLEKI T 650101 Conjunto de soquetes, conectores, resistores e ca- 
pacitores. APPLEKIT 65020, Conjunto de semicondutores, TTL’s, LSI e memorias (As memorias EPROM sio forneci- 
das com grava^ ao). [AP PLEKIT 65100) Conjunto de teclado alfanumerico com 52 teclas e componentes, circuito im- 
presso. I^^£LEKI_T _65200j Fonte de alimenta^ao tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. 1 APPLEKIT 65400 Manual de montagem e teste de micro. 

APPLEKIT e 100% compativel com os cartoes perifericos da MICROCRAFT. * Apple e marca registrada de Apple Inc. 






Que tal praticar certos conceitos de Fisica? Voce pode comeqar por este 
programa, que Simula na I inha Sinclair o langamento obh'quo de projeteis 



Estude Fisica 
com o micro 



Jorge Santana de Oliveira 



A dificuldade encontrada pela maior parte dos alunos 
do 29 grau em assimilar conceitos basicos de Fisica 
tern muito a ver com a quase total ausencia de aulas 
praticas, indiscutivelmente urn complemento essen- 
cial a exposigao teorica quando se tern em vista uma perfeita 
compreensao do fendmeno fisico. 

Neste particular, o microcomputador se transforma em uma 
altemativa diddtica relevante, considerando a possibilidade 
que este oferece de simular movimentos, alguns dos quais de 
diffcil demonstragao mesmo quando se dispoe de laboratorio 
de ensino. 

Movimentos como a Queda Livre e o Langamento Obliquo 
de Projeteis sao visualizados, quando muito, atraves de fotogra- 
fias estroboscopicas, recurso que apresenta como inconvenien- 
cia a sua estaticidade, ou seja, o movimento e apresentado 
pronto , ao passo que o microcomputador proporciona a repro- 
duce do movimento semelhante a sua ocorrencia real. 

O programa que ora apresentamos roda nos equipamentos 
da linha Sinclair e Simula o Langamento Obliquo de Proje- 
teis, permitindo a visualizagao de caracteristicas basicas deste 
movimento, algumas das quais chegam a contradizer o senso 
comum do estudante, criando um impasse na sua aceitagao. 

DESCRigAO DO MOVIMENTO 



O Langamento Obliquo de Projeteis consiste no movimento 
de um corpo langado com uma velocidade inicial v que forma 
um angulo 0 (teta) com a horizontal. 

Admitindo que o movimento ocorra no vacuo e nas proxi- 
midades do solo, observa-se que ele e o resultado da composi- 
gao de dois outros movimentos em ocorrencia simultanea: um 
movimento retilineo e uniforme e um langamento vertical, 
regidos pelas equagoes horarias: 

• movimento retilineo e uniforme: x=(v. cosG) .t 

• langamento vertical: y=(v. sen0) .t - 0.5 gt‘ 




Figure 2 




Figure 4 



Por sua vez, a equagao da trajetoria e dada por: y =(tan 
9 ) .x - (g / (2. v 2 .cos 2 0 )) .x 2 , correspondente a uma pa- 
rabola. 

A distancia horizontal maxima atingida pelo projetil e deno- 
minada alcance , indicada por A, cujo valor e dado pela ex- 
pressao: A= (v 2 . sen 20)/g. 

Nao e diffcil demonstrar matematicamente as seguintes 
caracteristicas: 

1 — O alcance aumenta com o aumento do angulo de lan- 
gamento no intervalo de 09 a 459. Em 459 o alcance e maxi- 
mo, e a partir daidecresce ate atingir o valor mfnimo em 909 
(A= 0). 

11 — A altura maxima aumenta com o aumento do angulo de 
langamento. 

Ill — Para angulos complementares (aqueles cuja soma vale 
909) o alcance e o mesmo. 

UTILIZACAO do programa 



0 programa foi formulado para sobrepor dois langamentos. 
A velocidade de langamento teve seu valor Fixado em 10 m/s, 
de forma que o unico parametro de entrada e o angulo de lan- 
gamento (em graus), pedido sob a forma ANG. 1 =? e depois 
ANG. 2 =?, tendo em vista que a cada rodada serao simulados 
dois movimentos (Figura 1 ). 

Com a utilizagao do programa, as caracteristicas I, He III 
podem ser facilmente visualizadas. Por exemplo: 

1 - Fazendo ANG. 1 = 30? e ANG. 2=459, e depois ANG. 
1 = 45? e ANG. 2= 60?, as caracteristicas 1 e II sao claramente 
observadas (figuras 2 e 3). 

2 - Fazendo ANG. 1 = 40? e ANG. 2=509, a caracteristica 
III Fica perfeitamente visualizada (Figura 4). 

Uma restrigao deve ser observada: devido as limitagoes da 
tela e a baixa resolugao dos equipamentos da linha Sinclair, 





Langamento obliquo 





5 


REM 


"LANCAMENTO OBLIQUO" 


10 


REM 


"AUTOR: JORGE S. OLIVEI 


RA" 






15 


DIM 


Y ( 30 ) 


20 


DIM 


T ( 2 ) 


25 


FOR 


1=0 TO 31 


30 


PRINT AT 21,1; "H" 


35 


NEXT I 


40 


PLOT 10,1 


45 


FOR 


J=1 TO 2 


50 


PRINT AT J,0; "ANG. ";J; "= ?" 


55 


INPUT T ( J) 


60 


PRINT AT J, 7 ;T ( J) 


65 


PRINT AT 2,20; "AGUARDE" 


70 


FOR 


L=1 TO 30 


75 


NEXT L 


80 


FAST 


85 


LET 


TETA=T ( J) *PI/180 


90 


LET 


A=10 *SIN (2 *TETA) 


95 


LET 


N=INT (2 . 2*A+0 . 0001) 


100 


LET 


INCX=A/N 


105 


LET 


X=0 


110 


FOR 


1=1 TO N 


115 


LET 


X=X+INCX 


120 


LET 


Y ( I ) =X*TAN (TETA) -0.05* 



X**2/ (COS (TETA) ) **2 
125 NEXT I 
130 PRINT AT 2,20; " 

135 SLOW 

140 FOR L=1 TO 30 

145 NEXT L 

150 FOR 1=1 TO N 

155 PLOT 2*1+10, 11. 2 *Y (I)+l 

160 NEXT I 

165 IF J=1 THfiN NEXT J 
170 STOP 

175 SAVE M LAN CAME N TO " 

180 RUN 



o programa foi elaborado para ser utilizado com uma boa reso- 
lugao graFica para angulos de langamento entre 309 e 609. 
Abaixo de 309, a resolugao toma-se ruim e acima de 609 a al- 
tura maxima extrapola os limites da tela. Lembramos, contu- 
do, que esta restrigao £ imprescindivel se desejarrnos a obten- 
gao de trajetorias semelhantes as reais, alem do que ela n£o 
compromete os objetivos a que visa o programa. 

Na listagem, na linha 95, o numero 2.2 funciona como uma 
escala horizontal, compatibilizando a abscissa da tela com o al- 
cance fornecido pela formula. Da mesma forma age o numero 
1 1.2 na linha 155, sendo que com relagao as ordenadas. 

m 



Jorge Santana de Oliveira 4 estudante do ultimo ano de Engenharia Ci 
vi I na Universidade Federal de Sergipe, onde trabalha como tdcnico de 
Laboratdrio de Fisica, e professor de Fisica do Col6gio de Ciincia Pura 
e Aplicada - CCPA, em Aracaju. 
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Seu programs nao funcionou? Nao consegue achar o erro ? Nao se desespere... 
Com calma (e a/gumas tecnicas), tudo se resolve 



Na trilha dos erros 
de programacao 

Roberto Quito de Sant'Anna 



U m dos momentos mais criticos da arte de programar e assunto, melhor ainda - duas cabe9as sempre pensam (ou 

aquele em que o programador, apos algumas horas de erram. . .) melhor que uma. 

bolagao , fluxogramas e digita(?ao, cheio de expectativa Se voce esta digitando a partir de uma revista, cuidado 
digita RUN e ENTER. A partir dai, dependendo de com os erros de impressao. Leia sempre as erratas, mesmo 

vdrios fatores, entre os quais sorte e experiencia, o resultado dos artigos que hoje nao lhe interessam, e fa$a todas as 

pode variar desde um suspiro de alivio (se o programa altera^Ces necessarias na edi9ao original. Se a revista 6 

executou corretamente) ate o que pode ser o inicio.de uma recente e seus conhecimentos n£o forem suficientes para 
verdadeira via cruris , na qual muitas horas serdo consumidas achar o goto, escreva ou telefone a redagao - os editores 

e muitos cabelos arrancados ate que o programa venha a tern como ponto de honra prestar toda a assistencia aos seus 

funcionar - se e que funcionara algum dia. . . leitores. Por outro lado, se voce conseguir pegar algum 

Este artigo, fruto de muita vivencia e leitura, tern por bichano , garanta a sua boa a9ao do dia, comunicando o fato 

objetivo fornecer subsidios a iniciantes e iniciados para que, imediatamente a reda9ao. 

de forma sistematica, possam mais rapidamente tornar seus Analise atentamente as mensagens de erro, observando 

programas operacionais. tambdm as duas ou tres linhas que antecedem aquela em que o 

A meu ver, a recomenda9ao fundamental — e que alids erro foi acusado. Se a linha lhe parecer absolutamente normal, 

nada tern a ver com programa9ao -da seguinte: jamais gaste experimente digitd-la novamente - voce pode, sem querer, 

mais de vinte ou trinta minutos tentando descobrir um erro. ter digitado 4 - e iniciado uma nova linha, que foi 

Aquele s que, como eu, so come9am a produzir a plena carga interpretada como continua9ao da anterior, 

depois das onze da noite, arriscam-se a passar toda uma noite Especial issima aten9<io as linhas que tenham sido editadas. 

em claro sem chegar a qualquer conclusao, pois, apos um Digamos que voce empregou nC para substituir caracteres em 

certo numero de tentativas, e comum ficarmos cegos e uma linha e, devido a um engano, teve que usar 4- 

passarmos repetidamente por cima do erro sem ve-lo. Em vez (retrocesso) em vez de substituir o carater recdm- digitado. 

de insistir, finja desistir, ocupe-se com outra coisa e, mais 0 que voce fez foi introduzir na linha o codigo de retrocesso 

cedo ou mais tarde, a luz vira ou, pelo menos, voce descobrira que, obviamente, serd um corpo estranho, ocasionando, no 

uma nova maneira de atacar o problema. mmimo, um erro de sintaxe. 

Habitue -se a mostrar o seu problema a uma outra pessoa, Se o seu equipamento e compativel com o TRS- 80 , 

mesmo leiga no assunto: a calma dos ignorantes (no bom habitue -se a usar nomes de variaveis com apenas dois 

sentido, e claro) sempre funciona e £ comum ouvir-se uma caracteres, o primeiro uma letra. Embora nao haja restri9ao 

pergunta tipo — “Por que o ozinho do GpSUB esta com um a quantidade de caracteres do nome de uma varidvel, o 

tracinho no meio?”.. . Se tal pessoa tambem entende do interpretador somente considera os dois primeiros, 0 que leva 
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freqiientemente a erros (aparentemente) absurdos, 
principalmente o de divisao por zero. Ha pouco tempo, um 
programa que tinha as variaveis L 01 (longitude de origem), 

L 02 (longitude de destino) e L 0 DIF ( = L 02 - L 01 ) quase me 
fez baixar ao hospital. . . 

PREVINA ANTES DE REMEDIAR 

Os piores problemas s£o, sem duvida, os erros de logica: eles 
n£o ocasionam mensagem de erro. Neste caso, uma das 
solu9oes e apelar para as fun9oes TRON e TROFF 
(Trace ON/OFF). A fun9§o TRON faz com que o numero de 
cada linha executada seja mostrado na tela entre os simbolos 
< e > . 

Antes de apelar para TRON, e importante 
procurar isolar ao maximo 

a provavel regiao do erro, usando-a no trecho estritamente 
necessario, sob pena, especialmente em programas com 
multiplos desvios e la90S FOR-NEXT encaixados, de receber 
um emaranhado de numeros absolutamente indecifraveis. 
Costumo substituir TRON e TROFF por diversos STOP 
colocados em pontos estrategicos, em regioes suspeitas do 
programa; feita a parada (BREAK na. . .), posso checar os 
valores de todas as variaveis por meio de PRINT no modo 
direto e, se tudo estiver de acordo ate ali, prosseguir na 
execu9ao digitando CONT e ENTER. Esta tecnica, muito 
eficaz por permitir o acompanhamento passo a passo do 
programa, pode vir a tornar- se tediosa quando usada no 
interior de la90s FOR-NEXT; neste caso, prefiro substituir os 
STOP por uma linha temporaria do tipo 
PRINT I , A , B , C : GOSUB 1 0000 ( onde 1 e sempre a variavel de 
controle do U90 e A, B e C representam as variaveis que quero 
acompanhar) e, ao final do programa, colocar esta sub-rotina: 

10000 PRINT " APERTE QUALQUER TE 
CLA PARA CONTINUAR" 

10001 IF INKEY $ = "" GOTO 10001 
ELSE RETURN 

Use e abuse das sub-rotinas sempre que determinado grupo 
de instru9oes for usado mais de uma vez. Se voce subdivide 
seus programas em modulos pequenos, vera que £ muito mais 
fdcil circunscrever e eliminar erros, considerando cada modulo 
como um pequeno programa que pode ser executado por meio 
de RUN n. 

Se voce quiser eliminar temporariamente alguma linha, em 
vez de apaga-la e digita -la novamente, use o comando EDIT 
e o subcomando I para inserir um REM ou ’ (SHIFT 7 ) no 
initio da mesma; terminada a experiencia, use novamente 
EDIT para voltar a condi9ao inicial. Isto e particularmente util 
quando nSo se dispOe de uma listagem do programa, de uma 
copia em disco ou, principalmente, quando se usam micros 
versao cassete. 

Finalmente, ven9a a tenta9ao de programar em cima da 
pema , direto no micro. Obrigue-se, mesmo que voce ainda n£o 
saiba, a fazer um fluxograma, por mais simples que pare9a o 
programa. Logo voce vera que o tempo dispendido em fazer 
nem que seja uma garatuja da sua logica resultara em uma 
diminui9ao acentuada ou mesmo elimina9ao dos erros de 
logica. Na era da comunica9ao, tenha sempre em mente que 
“uma imagem vale mais que mil palavras”. . . e boa sorte! m 
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LIVRARIA SISTEMA 

Q LOJA: A V. SAO LUIZ, 187 - LOJA 8 la. S/L. 

GALERIA METRdPOLE 

jy j FONES: 011 257-6118 259-1503 - SAO PAULO 

3 SEMPRE NOVIDADES! 

31 • TECNOLOGIA DA INFORMACAO. um gum p/empresas. ge 

rente* eadministradores Eaton . 9 500, 

32 - INTRODUCAO A LINGUAGEM BASIC P/MICROCOMPUTA- 

DORES Lederman 9.200, 

33 APPLE II GUIA DO USUARIO - Poole 14 400. 

34 - THE CREATIVE TRS-80 Mazur 34 000 

35 ESPECIFICAQAO DE SISTEMAS • Water* 6 500. 

36 MACHINE LANGUAGE PROGRAMMING MADE SIMPLE 

FOR YOUR SINCLAIR & TIMEX TS-1000 Melbourne 30 000. 

37 • EXPLORER'S GUIDE TO THE ZX-81 AND TIMEX SIN- 
CLAIR 1000 Lorde 30 000, 

38 • THE BEST OF SYNC Gro*jean 23.000. 

39 CP/M GUIA DO USUARIO Hogan 8 800. 

10 MAKING THE MOST OR YOUR ZX81 Hartnell. 25 000. 

11 - 44 DYNAMIC ZX-81 games and recreations Davie* . 50 000, 

12 BASIC ENGINEERING AND SCIENTIFIC PROGRAMS FOR 

THE IBM PC Wolfe 46 000. 

13 - IBM PC ASSEMBLY LANGUAGE: guide for programmers 

Scanlon 46 000, 

14 BUSINESS PROBLEM SOLVING WITH THE IBM PC & XT. 46 000. 

15 ATARI PI LOT. activities and games Kohl 34 000. 

16 - TRS-80 ASSEMBLY LANGUAGE model I II : a complete cour- 
se in assembly language programming Howe 46 000. 

17 MORE BASIC COMPUTER GAMES Ahl 18 000. 

18 BASIC MICROCOMPUTER GAMES Ahl 18 000 

19 - COMPUTADORES E PROGRAMACAO 307 problemas resol 

vidos 215 problema* propostos - Scheid 6 700, 

20 - INTRODUCAO ASEGURANQA DO COMPUTADOR Wood 5 400. 
21 - THE APPLE HOUSE how to computerize your home using 

your apple computer - Blankenship 41 000, 

22 MASTERING MACHINE CODE ON YOUR TIMEX SINCLAIR 

1500/1000 Baker 27 500, 

23 WRITE YOUR OWN APPLE GAMES Anstrs 30 000. 

24 - USING DBASE II • Townsend 44 000. 

25 - PROGRAMACAO EM ASSEMBLER E LINGUAGEM DE MA- 

QUINA -Alexander 5.800. 

26 - THE CREATIVE APPLE Pelczarski. . . 37 000. 

ATENDEMOSPOR REEMBOLSO POSTAL COR REKWA RIG (fora capita 0 
PEDIDOS: CAIX A POSTAL 9280 
CEP 01051 - SP. 
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CIBERNE 6 a mais avancada e sofisticada linha de sotfware para microcomputadores. criada 
para livrar voce dos inconvenientes de produpdes amadoras ou de origem duvidosa Com 
CIBERNE voci ter* uma dtversificada linha de programas novos. lanpados period teamen te 
em pacotes econdrmcos. Com gravap£o profissional e em embalagem inviolivel, CIBERNE 
oferece a voce garanna total em qualquer lugar do Brasil. 

( PROGRAMAS EM FITA PARA TK-82, 83. 85. CP 200 E COMPATfVElS N 



S*m qualquer acrHcimo no prapo vooi encontra am cada fita 5 axcitantvs jogo* para »eu l«er a 
tntratanimento. Dm joyitick ou taclado 

BICHOSACIA PATRULHA GALAcnCA COMRATE AVBHTUJLA A KI 5 TXRI 0 



■ CASCA. A COBRA ■ NAVE MAE 



■ CRAZY KONG 

■ centopEia 

■ F ROGGE R 

■ SUCURI 



a PIRAMIDE INCA 



i FUNGOS MUT ANTES ■ ALERTA VERMELHO ■ SABOT AGEM 



■ galAtica 

• SOS VEGA III 

■ PERSEGUIDOR 



■ POLARIS 

■ DUELO 

■ SCRAMBLE 



■ OAVENTUREIRO 
• MAZOGS 

■ USS ENTERPRISE 



. utilitArios} 



i SOG ■ Uma nova e man poderova variSo de ROT I 
• seu sensacional Sutema Operacional GrSfico. 
i MERGE 

PARA BREVE- 



• 0 MERCADOR 

• STARQUEST 

• ZARAKS 



■ ASSEMBLER 

■ OESASSEMBLER 

• COMPILADOR BASIC 



• ESTRELANEGRA 

• cristal mAgico 

• GUERRILHA COSMICA 



• ORCA I (Orcememo domesneo) 

• ARQ I (Arquivoda Dados) 

• CASHFLOW 



EM TODO 0 BRASIL NAS MELHORES LOJAS DO RAMO. 



Informacoes, DistribuipSo e Vendas: 

JVA- MICROCOMPUTADORES LTDA. 

Av. Grapa Aranha, 1 45 s/loja 01 - Rio de Janeiro - RJ 
CEP 20.030 Tel.: (021) 262-6968 
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Nest a segunda e ultima parte, um jogo egipcio, escrito em BASIC para a /inha 
T RS-80, exemp/ificara o uso das tecnicas abordadas no numero anterior 



Inteligencia Artificial - II 

Antonio Costa 



Um programa para jogar Mancala 



A estrutura de nosso programa, escrito 
para a linha TRS-80, e comum a qual- 
quer programa-jogo. Eis o seus pontos 
principals: 

• Linhas 360 a 470: estas linhas constituent 
um gnipo de instru^des que devem ser repeti- 
das ate terminal o jogo; 

• Linha 370: o computador chama o gerador 
de movimentos, que coloca na variavel NT o 
numero de movimentos disponiveis. Se NT=0, 
a miquina passa a iniciativa ao jogador huma- 
no. Q = 1 informa ao gerador que desejamos 
os movimentos do computador; 

• Linhas 390 c 400: o computador pede ao 
Maximizador que escotha um movimento; 

• Linha 420: a rotina 7000 e chamada para 
fazer o movimento escolhido. IM indica a esta 
rotina que casa deve ser movimentada. TA 

(1 12) contem o tabuleiro. TA (0) con- 

tern as pe^as capturadas pelo jogador humano. 
PTS =0 indica que as pe^as capturadas devem 
ser postas em TA (0) e, portanto, que o lance 
l do computador; 

• Linha 430: a rotina 8000 imprime o tabu- 
leiro; 



• Linha 433: a rotina 4000 e chamada para 
verificar se o jogador humano tern movimen- 
to. Q * 7 indica que a verifica^ao deve ser ini- 
ciada em TA (7), isto e, na primeira casa do 
lado do jogador humano; 

• Linha 440 : o lance do jogador humano e 
lido; 

• Linha 450: como as casas do jogador hu- 
mano estao em TA (7 12) e o valor lido 

em IM esta entre 1 e 6, somamos 6 a IM de 
modo a obter a posi^ao em TA ocupada pela 
casa escolhida. PTS -13 indica que as pedras 
capturadas devem ser postas em TA (13). Fi- 
nalmente, GOSUB 7000 realiza o movimento 
escolhido pelo jogador humano; 

• Linhas 900 a 1070: contem o Maximiza- 
dor, cujo funcionamento e explicado na pri- 
meira parte dcste artigo (MICRO SISTEMAS 
n9 29); 

• Linha 930: o Avaliador-estatjco e invoca- 
do se estivermos examinando uma folha; 

• Linha 940: o Gerador-de-movimentos 6 
invocado. Apos a devolu^ao do controle, NT 



contera o numero de movimentos gerados e 
LCS( 1 NT) estara com os movimentos; 

• Linha 950: se NT =0, o Avaliador-estati- 
co e chamado ; 

• Linha*970 a 1050ros lances contidosem 
LCS sao examinados; 

• Linhas 2000 a 2180: contem o Minim iza- 
dor; 

• Linhas 3000 a 3020: contem o Avaliadorj 
estatico (como a final idade do artigo nfo e 
discutir a avalia^ao estatica, fizemos um ava- 
liador bem simples); 

• Linhas 4000 a 4050 : Gerador-de-movimen- 
tos - coloca em LCS(1 NT) todos os 

lances disponiveis entre TA(Q) e TA(Q+5); 

• Linhas 7000 a 7150: geram o movimento 
apontado por IM. Se IM estiver entre I e 6, o 
movimento e do computador. Se IM estiver 
entre 7 e 1 2, o movimento e do jogador hu- 
mano; 

• Linhas 8000 a 8090: imprimem o tabuler 
ro. 



N a primeira parte deste artigo, 
publicada em MICRO SISTE- 
MAS n9 29, analisamos o al- 
goritmo Minimax e a poda 
ALFA-BETA. Desta vez, finalizando, es- 
tudaremos como usar o referido algo- 
ritmo na implementa^fo de jogos. Para 
tal, usaremos o jogo da Mancala , o qual 
ser A visto mais adiante (isto nfo implica- 
r A na perda de generalidade, visto que 
todos os programas de jogos tern a mes- 
ma estrutura). 

0 leitor provavelmente perguntara: 
“Se a escolha do jogo nao afeta os resul- 
tados de nosso estudo, por que nao usar 
um que seja mais popular do que a Man- 
calal Por que nfo usar xadrez, por 
exemplo?” Ha varias razdes para nfo 
usarmos xadrez. Uma delas e que decidi- 
mos escrever nosso programa em BASIC 
interpretado, uma linguagem lenta, obs- 
cura e ineficiente. A lentidfo do BASIC 
faria com que nosso programa levasse 
horas para interpretar um lance de xa- 
drez; a ineficiencia tomaria impossfvel 
colocar um programa de xadrez decente 
na memoria do microcomputador e, fi- 
nalmente, a obscuridade impediria o lei- 
tor de entender nosso programa. 

E por que escolher o BASIC? Por que 
nfo usar o RLISP ou o SAIL? Porque 
BASIC tern uma qualidade que compen- 
sa seus graves defeitos:e uma linguagem 
conhecida por um grande numero de 
programadores profissionais. 

LINGUAGEM DE MAQUINA, 

NEM SEMPRE 

Antes de prosseguir, gostariamos de 
discutir um assunto de grande interesse 



para todos os programadores. Trata-se 
da linguagem de mfquina. Todo inician- 
te come^a aprendendo BASIC e, ao es- 
barrar nas limitagdes desta linguagem, 



tenta aprender linguagem de maquina. 
Isto 6 um erro grave . . . 

Um bom programador nunca usa lin- 
guagem de maquina a nao ser para ini- 



Mancala 



10 REM JOGADOR DE MANCALA 
200 DIM P I LHA ( 500 ) , T A ( 1 3 > 

210 CLS 

220 PRINT '■===* DEMONSTRACAO DA PODA ALFA BETA *===" 

230 PRINT "===* USANDO 0 ANT I GO JOGO DA MANCALA *===" 

240 PRINT 

250 INPUT "QUANTQS LANCES TERA 0 JOGO" ; LA 

260 INPUT "EM QUE NIVEL 0 AVAL I ADOR ESTATICO VAI ATUAR" ; MNI 
270 INPUT "VOCE QUER COMECAR (S/N) " 5 R$ 

280 T A ( 0 ) =0 : T A ( 1 3 ) =0 

290 FOR J=1 TO 12: TA ( J ) =4: NEXT J 

300 GOSUB 8000 

310 IF R$= "N" THEN 360 

320 INPUT "DUAL E’ SEU LANCE" ; IM 

330 IF IMV6 OR IM<1 THEN PRINT "LANCES DEVEM ESTAF: ENTRE 1 E 6" 

: GOTO 320 

340 IM=IM+6: PTS= 1 3: GOSUB 7000 
350 GOSUB 8000 
360 FOR L=1 TO LA 
370 0=1: GOSUB 4000 

380 IF NT»0 THEN PRINT "ESTOU SEM MOV I MENTOS" : GOTO 435 

390 BETA=999: ALFA--999 : NI =0: PP=0 

400 GOSUB 900: PR I NT 

410 PRINT "MEU LANCE E* " ? ML 

420 IM=ML:PTS=0: GOSUB 7000 

430 GOSUB 8000 

435 Q=7: GOSUB 4000 

437 IF NT=0 THEN PRINT "VOCE ESTA SEM MOVEMENTO": GOTO 470 

440 INPUT "QUAL SEU LANCE"; IM 

450 I M= IM+6: PTS= 13: GOSUB 7000 

460 GOSUB 8000 

470 NEXT L 

480 IF TA (0) >TA ( 13) THEN PRINT "6ANHEI" 

490 IF TA(0XTA(13) THEN PRINT "GANHASTE" 

500 IF TA<0)=TA<13) THEN PRINT "EMPATAMOS" 

510 END 

900 REM MAXIMIZADOR 

930 IF NI=MNI THEN GOSUB 3000: RETURN 
940 Q=l: GOSUB 4000 



ciar o processo de bootstrap de compi- 
ladores. Programas em linguagem de mi- 
quin a sfo de dificil manuten^o e nfo 
confiaveis (no sentido de que podem 
conter erros causadores de comporta- 
mento errftico). “Mas”, perguntara o 
leitor, “e se eu quiser escrever progra- 
mas rfpidos e eficientes? Nfo 6 necessf- 
rio usar linguagem de maquina?” A res- 
posta 6 nfo! Use um bom compilador 
com otimizador. 

Mas o que e um compilador com oti- 
mizador? Um compilador e um progra- 
ma que traduz programas escritos em 
linguagem de alto nivel (como BASIC, 
Pascal ou LISP) para linguagem de ma- 
quina. 0 programa em linguagem de ma- 
quina resultante da a$fo do compilador 
6 chamado codigo objeto. Geralmente, 
porem, o codigo objeto nfo e tfo efi- 
ciente quanto um programa escrito dire- 
tamente em linguagem de maquina. A i 
entra em a 9 fo o otimizador. Ele modi- 
fica o codigo objeto para tom2-lo rf pido 
e faze-lo usar a menor quantidade de 
memoria possivel. 

fi necessfrio ter muito cuidado na 
compra de um compilador. A maioria 
dos compiladores BASIC existentes no 
mercado nfo sfo bons. Isto porque a 
sin t axe do BASIC 6 muito complexa, 
toman do dificil para quern constroi 
compiladores escrever o otimizador. E 
como o codigo objeto nfo e otimizado, 
ele ocupa muita memdria. A frea ocupa- 
da pelo codigo objeto dos compiladores 
Z-BASIC e ACCELL, por exemplo, 
pode ser ate 50% maior do que a ocupa- 
da pelo programa original. 

Apesar de nfo existirem bons compi- 
ladores BASIC para microcomputadores 
pessoais, existem excelentes compilado- 
res Pascal, RPN, LISP e FORTH. O 
ALCOR PASCAL com gerador de codi- 



go nativo e com otimizador, por exem- 
plo, i muito bom. 

MANCALA 

0 jogo da Mancala parece ter-se ori- 
ginado no antigo Egito. Tabuleiros deste 



jogo foram encontrados no templo de 
Kuma (construi'do por volta do ano 
1400 antes de nossa era). Apesar de tfo 
antigo, este jogo ainda 6 popular na 
Africa, na India e no Ceilfo. 

Existem varias modalidades de Man- 
cala , mas discutiremos apenas uma de- 



950 IF NT=0 THEN GOSUB 3000: RETURN 
960 ALFA=-999: PRINT " NIVEL ";NI? 
Q70 FOR 1=1 TO NT 
980 



ALFA ";:GOTO 1050 



BETA " ;:GOTO 2160 



IF ALFA>=BETA THEN I=NT: PRINT 
990 GOSUB 5000 

1000 NI =NI +1 

1010 IM=LCS(I ) :PTS=0: GOSUB 7000 

1 020 GOSUB 2000 

1030 GOSUB 6000 

1040 IF VA ALFA THEN ALFA=VA: ML=LCS ( I ) 

1050 NEXT I 
1060 VA=ALFA 
1070 RETURN 
2000 REM MINIMI ZADOR 

2040 IF NI =MN I THEN GOSUB 3000: RETURN 
2030 Q :: GOSUB 4000 

2060 IF NT =0 THEN GOSUB 3000: RETURN 
2070 BETA=999: PRINT " NIVEL ";NI; 

2080 FOR 1=1 TO NT 

2090 IF BETA< =ALFA THEN I -NT: PR I NT 

2100 GOSUB 5000 

2110 NI=NI+1 

2120 I M=LCS ( I ) : PTS= 13: GOSUB 7000 

2130 GOSUB 900 

2140 30SUB 6000 

2150 IF VA<BETA THEN BETA=VA: ML=LCS ( I ) 

2160 NEXT I 
2170 VA=BETA 
2180 RETURN 

3000 REM AVAL I ADOR ESTATICO 
3010 VA=TA (0) -TA (13) 

3020 RETURN 

4000 REM GERADOR DE MOVIMENTOS 
4010 NT =0 

4020 FOR K=Q TO Q-^5 

4030 IF TA <K> < >0 THEN NT=NT-H : LCS <NT) =K 

4040 NEXT K 

4050 RETURN 

5000 REM PUSH 

5010 P I LHA ( PP > = 1 1 PP=PP+ 1 

5020 PI LHA (PP) =NI : PP=PP-M : PI LHA (PP) =ALFA: PP=PP-*-l 
5030 PILHA (PP) =BETA: PP=PP-M : PILHA (PP) =ML: PP=PP-*-l 
5040 FOR K=0 TO 13 
5050 PILHA (PP) »TA <K) : PP=PP*M 



» 

I* 



32 



MICRO SISTEMAS. marco/84 



MICRO SISTEMAS. margo/84 



33 





inteligEncia ARTIFICIAL - II 



Jogador A 




Jogador B 



Figura 1 — Tabuleiro de Mancalc na posigSo initial 



Jogador A * * • 




6 5 4 3 2 1 




1 2 3 4 5 6 



Jogador B * J** 

Figura 3 



Jogador A 




6 5 4 3 2 1 




1 2 3 4 5 6 

Jogador B 

Figura 2 — Tabuleiro de Mancala apds o jogador A mover a casa 5 

Jogador A * *• 




Jogador B "t 



Figura 4 



las. 0 tabuleiro tem a forma mostrada 
na figura 1 . Inicialmente existem quatro 
pedras em cada casinha. Os jogadores se 
revezam pegando todas as pedras de 
uma das casinhas do seu lado.do tabulei- 
ro, distribuindo-as no sentido anti-hord- 
rio. A figura 2 mostra como fica o tabu- 
leiro se o jogador A escolher a casinha 5 . 



Digamos que haja uma seqiiencia de 
casas contendo uma ou duas pedras e 
que a ultima das que estSo sendo distri- 
buidas caia numa das casas dela. Neste 
caso, o jogador que esta fazendo o movi- 
mento captura todas as pedras da se- 
qiiencia ate chegar na casa onde a ulti- 
ma das pedras caiu. 



Urn exemplo tomard as coisas mais 
claras. Digamos que, na figura 3, o joga- 
dor B movimente a casa 5. A ultima pe- 
dra caira na casa 4 do jogador A. Isto 
significa que B capturard todas as pedras 
das casas 4, 3 e 2. 0 resultado do lance 
6 mostrado na figura 4. 

Vence o jogo quern capturar mais pe- 
dras ap6s ambos os jogadores terem fei- 
to o numero de lances escolhido em co- 
mum acordo antes de come^ar o jogo. 

OBSERVACAO IMPORT ANTE 

A fmalidade deste artigo foi desper- 
tar no maior numero de pessoas possi- 
vel o interesse pela Inteligencia Artifi- 
cial. Assim sendo, usamos a linguagem 
BASIC porque com ela po demos atingir 
um numero grande de programadores. 
Se, por^m, voce se intei*essou por Inte- 
ligencia Artificial, deve estar preparado 
para abandonar o BASIC e comesar a 
trabalhar com LISP ou PROLOG. 

Program as simples como os apresen- 
tados nesta e na primeira parte ainda po- 
dem ser escritos em BASIC. Quando, 
pordm, voce come^ar a trabalhar com 
problemas complexos, precisard de um 
poder de computa^o que s6 LISP e 
PROLOG poderfo lhe dar. ■ 



Antonio Eduardo Costa Pereira 4 formado em 
Engenharia E/etrdnica pela Escola Politic nice 
da USP e em Ffsica pe/o Instituto de Fi'sica da 
USP. Fez Mestrado em CiSncia Especial no 
Instituto de Pesquisas E specie is em SSo Jos4 
dos Campos , SP, e Doutorado em Engenharia 
Eletrdnica na Cornell University em Ithaca , 
Nova torque (EUA). Atua/mente 4 professor 
na UNESP. 



5060 NEXT K 

5070 FOR K=1 TO NT 

5080 PILHA (PR) s»LCS (K) : PP=PP +1 

5090 NEXT K 

5100 PILHA (PP> =NT: PP=PP+l 
5110 RETURN 
6000 REM POP 

6010 pp=pp-i :nt=pilha < pp> 

6020 FOR K=NT TO 1 STEP -1 
6030 PP=PP-1 : LCS (K) =PILHA <PP> 

6040 NEXT K 

6050 FOR K~13 TO O STEP -1 
6060 PP=PP- 1 : T A ( K ) =*P I LHA ( PP ) 

6070 NEXT K 

6080 PP=PP-1 : ML-PILHA (PP) : PP=*PP- 1 : BETA=PILHA (PP) 
6090 PP=PP-1 : ALFA=PILHA (PP) : PP«PP- 1 : NI=PILHA (PP) 
6100 PP=PP- 1 : 1 =P I LHA ( PP ) 

6110 RETURN 

7000 RLM HOVIMENTADQR 
7010 CU 1 A- TA(IM) : T A ( T M ) =0 
7020 CT=IM 

7030 IF CUIA=0 THEN 7100 
7040 CT=CT + J 

7050 IF CT>12 THEN CT=CT-12 
7060 TA(CT)=TA(CT) +1 
7070 CU I A=CUI A- 1 
7080 GOTO 7030 
7090 REM 

7100 IF TA (CT) >3 OR TA(CT)<2 THEN RETURN 
7110 T A ( PTS ) =TA (CT ) +TA (PTS) 

7120 TA (CT) =0 

7130 CT =CT-1 

7140 IF CT < 1 THEN CT*12 

7150 GOTO 7100 

8000 REM IMPRIME TABULEIRO 

8010 PRINT 

8020 PRINT "TABULEIRO: " 

8030 PRINT "VOCE: ";TA(13)J" 

8040 FOR K=12 TO 7 STEP -l: PRINT TA (K) 5 : NEXT K 
8050 PRINT 

8060 PRINT " EU: TA(0)5" " ; 

8070 FOR K— 1 TO 6:PRINT TA (K) ; : NEXT K 
8080 PRINT 
8090 RETURN 
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CURSO DE BLETKONKA DtGfTAL 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada dos CURSOS CEOM permite aprendizado f6cil. E 
para esciarecer qualquer duvida, o CEDM col oca d sua disposipSo uma 
equipe de professores sempre muito bem acessorada. AI6m disso, vocd 
recede KITS preparados para os seus exercfcios prSticos. 

Agil, moderno e perfeitamente adequado £ nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condipdes ideais para o seu 
aperfeipoamento profissional. 



VocS tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dias voc£ recebe nossos catiiogos de apresentapao. 



Avenida Sao Paulo, 718 - Fone (0432) 23-9674. 
LUJI I CAIXA POSTAL 1642 • CEP 86100 - Londrina - PR 

CURSO DE APERFEIQOAMENTO POR CORRESPONDENCIA 

Sollclto o mais rtpldo possivel informapdes sem compromisso sobre o 
CURSO de 



Bairro CEP 



MAIS SUCESSO FAR A VOCE! 



CEDM 20 KIT 
de Ferramentas. 

CEDM 78 KIT 
Fonte de Alimentapao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER 



CEDM 1 KIT de Ferramentas. CEDM 2 - KIT Fonte de AlimentapSo 
♦ 15-15/1A. CEDM-3 • KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM 5 - KIT Pre amplif icador 
Est£reo CEDM 6 KIT Amplificador Estereo 40w. 



KIT CEDM Z80 
BASIC Cientlf ico. 

KIT CEDM Z 80 
BASIC Simples. 

Gabarito de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 



Sao mais de 140 apostilas com informapdes completes e sempre 
atualizadas Tudo sobre os mats revolucionario CHIPS E voce 
recebe. alem de uma solida formapSo teorica, KITS elaborados 
para o seu desenvolvimento prStico. Garanta agora o seu futuro 
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Este CURSO. especialmente programado. oferece os 
fundamentos de Linguagem de ProgramapSo que domma o universo 
dos microcomputadores. DinSmicoe abrangente. ensina desde o BASIC 
b^sico ate o BASIC mais avanpado, inclumdo nopoes b&icas sobre 
Mampulapao de Arquivos. T^cmcas de ProgramapSo, Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramapao e 
T^cnicas em Linguagem de Maquina. que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc§ o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 



M^todos novos e in^ditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova lipSo, apostilas ilustradas 
ensinam tudo sobre Amplificadores. Caixas Acusticas. Equalizadores. 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca Fitas, Capsulas 
e Fonocaptadores. Microfones, Sonorizapao. Instrumentapao de Medidas 
em Audio. Tecnicas de Gravapao e tambem de Reparapao em Audio 
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Pacotao de hardware 
para os Sinclair 



Por esse pacoie voce esperava! 

As cartas e os pedidos foram muitos e aiesta o Pacotao de Hardware 
para a linha Sinclair. Entre varias co lab oroides recebidas, empacotamos 
algumas quc acreditamos seras tnais interessantes implementa^oes que voce 
poderci introduzir no seu micro Sinclair. Tivemos a preocupaqdo de dar 
subsidios para que proprietdrios de modelos diferentes pudessem desfrutar 
dessas maravilhosas “ die as de Hardware" que os nossos colaboradores 
estao dividindo com todos os leitores da MICRO SISTEMAS. 

Portanto , maos a obra porque neste pacotao voce verd, por exemplo, 
a d if ere n^ a em digitar um programa depois de montar o teclado mecanico. 
0 repet idor de teclas ajudard voce a economizar tempo ao digitar pro gramas 
longos. Duas maneiras de introduzir um video in verso, qual delas voce 
escolhe 9 E . . . que tal adaptor um joystick ao seu NE 9 



A ntes de apresentar as colabora^oes, 
vamos falar um pouco sob re o tecla- 
do dos micros Sinclair. Aie'm desse 
esclareamento ser importante, muitas dasco- 
labora^oes tratam desse assunto, daf dannos 
algumas explicates sobrc o seu formato e 
funcionamento. 

O computador mante'm o teclado orgamza- 
do numa matriz dc 8\5 posi^oes. sendo que 
cada posi^ao corresponde a uma tecla. Pode- 
mos mclhor identificar isso atrave's da figura 1 , 



onde LO a 17 correspondem as linhas da ma- 
triz c CO e C4 correspondem as coluna %. 

O computador reconhece cada tecla pres- 
sionada atrave's de uma rotina do Sistema 
Operacional. Essa rotina faz a leitura linha/co- 
luna ate identificar quais os pontos que estao 
em contato. Por exemplo, se pressionarmos a 
tecla R havera contato entre a linha LI e a 
coluna C3. 

As figuras 2, 3 e 4 mostram os layouts dos 
principals micros da linha Sinclair para que 



voce possa identificar essas linhas e colunas no 
seu equipamento. Estas figuras o acompanha- 
rao em quase todas as colabora^ocs c atrave's 
delas sera possi vel adaptar todas as implemen- 
ta^oes para o seu equipamento. 

Entao. vamos desembrulhar esse pacote? 




G anhe em dobro com este circuito que 
implementa um inversor de vi'deo e, 
por tabela, melhora a qualidade da 
imagem. Com ele, e' possi vel obter otimo grau 
de contraste. aumentar os recursos da progra- 
ma cao c diminuir a fadiga visual provocada 
pelo fundo branco da imagem. 

Para os que nao estao familiarizados com o 
sinal de vi'deo de televisores, recomendamos a 
leitura da primeira parte do artigo “TV em 
monitor: como adaptar'*, publicado em MI- 
CRO SISTEMAS n? 21. 

Como todos sabem, o sinal de vi'deo do 
TK c gerado pelo software. Este sinal contem 
todas as informa^oes da imagem e do sincro- 
nismo, que, enviado ao modulador (figura 5), 
permite a liga<;ao direta a entrada da antena 
do televisor. Para inverter o sinal de vi'deo, dc- 




Figura l Matriz do teclado 
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Figura 3 - Layout do TK85 




Figura 4 - Layout 
do TK82-C 
(Para tomar possivel 
a ad apt a<; do em 
seu equipamento 
de todas as 
implementacdes de 
hardware que 
apresentamos, as 
figuras de numero 2, 
3 e 4 serdo citadas 
em quase todos os 
artigos que 
compoem essa 
materia. Atravis 
desses layouts 
ficara mais fdcil 
identificar as linhas 
e colunas em seu 
equipamento). 
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PACOTAO DE HARDWARE PARA OS SINCLAIR 
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SUB INPUT LOAD LET PAUSE -E 
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Figura 5 Figura 6 




vemos faze-lo antes do modulador e nao basta 
simplesmente inverter o sinal de vi'deo: deve- 
mos inverter somente as informa^des da ima- 
gem e manter inaJteradas as informa^oes de 
sincronismo (figura 6). 

0 inversor de vi'deo utiliza o integrado 
CMOS 4001, que, por suas caracten'sticas de 
alta impedancia de entrada e baixo consumo, 
pode ser ligado no circuito e utilizar a alimen- 
ta^ao do proprio micro sem pro vocar qual- 
quer tipo de sobrecarga. Basicamente o circui- 
to separa os sinais de sincronismo do sinal da 
imagem, e este ultimo, invertido e somado no- 
vamente aos sinais de sincronismo, gera o sinal 
de vi'deo invertido. Para facilitar a compreen- 
sao do funcionamento do inversor, o circuito 
ele'trico, na figura 7, apresenta as formas de 
onda em diversos pontos. 

0 inversor deve ser montado sobre uma 
placa de circuito impresso; todas as liga^oes 
devem ser minuciosamente inspecionadas e os 
cuidados com o integrado CMOS devem ser se- 
guidos, para que nao ocorram danos ao micro. 

A liga^ao do inversor no micro e' muito 
simples; o sinal de vi'deo original e retirado do 
circuito impresso antes que sofra a atenua^ao 
do resistor de 1MH, o qual esta localizado 
proximo ao conector MIC. O sinal de vi'deo 
invertido deve ser injetado no modulador (fi- 
gura 8). Para que o nosso micro possua dois 
tipos de vi'deo. normal e invertido, devemos 
desfazer a liga^ao entre o modulador e o cir- 
cuito impresso do micro, ligando uma chave 
seletora, conforme esta na figura 7. A alimen- 
ta9ao pode ser retirada de pontQs proximosa 
caixa do modulador. 

Depois que tudo estiver montado e funcio- 
nando, sera preciso calibrar o trimpot, respon- 
sdvel pela qualidade da imagem. Esta regula- 
gem depended tambem dos controles de bri- 
Dio e contraste do televisor. Para facilitar esta 
regulagem , sugiro o seguinte programa: 

10 FOR N=1 TO 255 
20 PRINT CHR$ N; 

30 NEXT N 
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Figura 9 



A posipao da chave seletora n£o afeta a 
gravapao nem a reprodupao de programas, mas 
e provavel que no modo de vi'deo invertido as 
faixas que apareciam no vi'deo, nestas duas ro- 
tinas, desapare 9 am, dependendo da regulagem 
de brilho e contraste do televisor. 




P ara quern esta c ansa do de usar marte- 
lo e talhadeira para digitar seus pro- 
gramas nos micros de logica Sinclair 
(aqueles com teclado “sensr'vel ao toque**), 
principalmente o NE-Z8000, eis a solupSo ou 
o fim dos seus calos! 

O que vamos ap re sen tar 6 um teclado me- 
canico adaptado para o NE-Z8000 ouTK82-C. 
Para en tender o seu funcionamento , nao deixe 
de recoixer a figura 4, que conte'm o layout 
desses equipamentos. 

Vamos entao ao teclado? Na figura 9 te- 
mos a placa de circuito impresso do teclado 
mecanico, vista do lado cobreado. Este dese- 
nho esta em escala, pore'm nada impede que 
voce altere suas dimensoes. Apenas lembre-se 
de observar a distancia entre os pinos das cha- 
ves (intenuptores de pressao). 

Nesta mesma figura (9) pode-se notar um 
resistor. Este componente, que tern o valor de 
820 ohms por l/4w ou l/2w,so sera necessa- 
rio para aqueles que quiserem incluir o RESET 
no seu teclado. Se voce achar que nao ha ne- 
cessidade de um RESET, basta ignorar os pon- 
tos A e B, bem como o resistor e as teclas (RE- 
SET 1 e RESET 2), na hora de fazer a placa. 

Caso voce queira incluir as teclas de 
RESET, saiba que o ponto A corresponde ao 
pino 26 da CPU. (Para maiores explica 9 oes, 
veja o artigo “RESET: desligando a UCP do 
micro**, publicado em MICRO S1STEMAS n? 
26.) O ponto Beo pino central do integrado 
7805. 

As chaves, que sao em numero de 40 (ou 
42, para incluir o RESET), devem ser adquiri- 
das antes da confec 9 ao da placa de circuito 
impresso. Neste ponto, voce deverf (caso nao 
encontre um intenuptor perfeito, isto e, um 
que nTo possa servir como tecla) criar uma ca- 
pa, de modo que os interruptores fiauem seme- 
Ihantes as teclas de uma maquina ae escrever. 



Veja que, ao instalar o novo teclado, o ori- 
ginal continuara funcionando normalmente. 
Voce podera colocar o novo em uma caixa no- 
va ou sobrepo-lo ao original. 

Caso voce tenha cond^oes de adquirir um 
console ja pronto, ou seja, teclados IBM, Co- 
bra etc., e quiser adapta-lo ao seu micro, e 
muito simples. Em primeiro lugar, voce devera 
desfazer todas as possi'veis liga 9 oes ^ue exis- 
tam no interior do console. Depois, e so ligar 
as respectivas teclas nos pontos certos na pla- 
ca (que podera ter seu tamanho reduzido ou 
adaptado ao novo teclado). 




P ara aqueles que gostam de jogar (o 
que nao e' nada facil com o teclado 
do NE-Z8000), o joystick 6 muito 
util. Portanto, preste aten 9 ao e veja como 
adapta-lo no seu micro. 

Na figura 10, temos o plugue de seis pinos 
visto de tiis e tambe'm os pontos de liga 9 ao na 
placa do micro. Agora e' so voce recorrer a fi- 
gure 4, localizar os pontos e fazer as ligayoes. 
Esta adapta 9 ao requer um pouco de pratica, 
para nao danificar os diodos e resistores. As li- 
ga 9 oes devem ser feitas nos proprios terminals 
dos componentes. 

Por fim, 6 importante ressaltar que a liga- 
9 ao deste plugue 6 compati'vel com qualquer 
joystick comercial (daqeules para o TiC82-C). 




A qui esta uma otima oportunidade pa- 
ra voce adaptar o video inverso no 
seu micro. Esta implementa 9 ao foi 
elaborada origin aim ente no NE-Z8000, mas 
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PACOTAO DE HARDWARE PARA OS SINCLAIR 




PL ACA 
PRINCIPAL 



TECLADO 



Figura 12 



vocc vera como utiliza-la cm outros micros da 
linha Sinclair. 

Paia come^ar, abra o seu equipamen to, re- 
tire a placa do circuito impresso e localize o 
integrado SN74LS165N. A partir dai\ com ba- 
se na figura 11 (face inferior da placa do micro), 
qualquer pessoa que saiba realizar (com pra- 
tica) uma boa soldagem pode ter esta op9ao. 

Primeiro, corte o pequeno arame (fio de- 
sencapado) que ha cntrc os pontos A e B. No- 
te o rompimento de um filete entre os pontos 
A e C. Agora, ligue um fio em cada um dos 
pontos A e B e tambem no ponto C. Depois li- 
gue as extremidades destes fios nachavc CHI 
(de tres polos e duas posi^oes). Se tudo for 
feito corretamente, teremos entao em uma 
posi^ao da chave, vi'deo normal, e na outra, 
vi'deo inverso. 

Para os que desejam utilizar essa imple- 
menta^ao em outros micros da linha, basta lo- 
calizar o integrado SN74LS165N e saber que 
a liga^ao dos pontos A, B e C se resumem a: 
ponto C - pino 7 do integrado; ponto B — pi- 
no 9 do integrado; e ponto A - liga^ao do 
ponto B (fundo preto) ou ponto C (fundo 
branco) com o resto do circuito. 

Aos usuarios do TK82-C, aqui vai um lem- 
brete: em caso de diivida quanto a inversao, 
recorra ao artigo “Inversao de vi'deo e cassete 
automatico*’. publicado em MICRO SISTE- 
MAS n? 25. 



Repetidor 



de teclas 



C om esse repetidor de teclas voce eco- 
nomizara tempo na digita<;ao de pro- 
gramas longos. £ um circuito simples 
c para sua elabora^ao foi necessario, apenas. 
pesquisar a placa do teclado do CP-200 c co- 
nhecer seu funcionamento. 

Normalmente, quando uma tecla 6 pressio- 
nada, o circuito reconhece apenas um pulso, 
por mais que ela seja pressionada. Sendo as- 
sim, para sc repetir o mesmo carater n vezes, n 
vezes a tecla deve ser pressionada para a pro- 
dU9§o dos n pulsos. 

Com a utiliza9ao do circuito repetidor que 
estamos apresentando, basta deixar a tecla 
pressionada que serao produzidos os pulsos 
necessarios e, com isso, os caracteres. Isto tor- 
na a digita$ao menos cansativa, principalmen- 
tc quando se mcxc com o cursor, ou quando 
se reserva espago nas linhas REM para progra- 
mas em Assembler, ou ainda quando se quer 
apagar um dcterminado numero de caracte- 
rcs. 

Vejamos, entao, como isso funciona. 

No conector da placa principal do CP-200, 
assim como do teclado, estao presentes os se- 
guintes sinais (do fundo para a frente do mi- 
cro) 01 1 1 1 100000001 0. Portanto, 
contaremos da mesma forma. Os 14? e 15? si- 
nais sao de reset e, dessa forma, nao sera ne- 
cessario mexer neles. 

£ necessario que se acompanhc no lay-out 
do CP-200 (figura 2) a explica^ao de todo o 
processo. Vemos, entao, que os sinais que nos 
interessam sao C4, C3, C2, CO e Cl . Os sinais 
restantes sao provenientes da placa do tecla- 
do. Bern, o que se fez foi picar periodicamen- 
te esses sinais (C4, C3, C2, CO eCl ), utilizando 
um circuito temporizador e um circuito de 
chaves analogicas. O temporizador e o conhe- 
cido LM 555 e para as chaves analogicas foi 
utilizado o CD 4066, mas tambem ha o equi- 
valente CD 4016. Veja na figura 12 o esquema 
do circuito repetidor. 



Ficamos com as op9des de usar o micro da 
forma normal ou com a repeti^ao de teclas, o 
que e' selecionado com uma chave mecanica 
manual. Na forma nomal, a chave mecanica 
impoe um nivel 1 ao con trole da chave analo- 
gica e, com isso, e fechado o circuito intemo 
do 4066 formando-se uma ponte para a passa- 
gem da corrente e assim se mante'm. Ja na for- 
ma repetitiva, o circuito temporizador e ativa- 
do e no pino 3 do 555 aparecem os ni'veis 0 e 
1. Este sinal e aplicado ao controle do 4066 e 
dessa forma e ativada e desativada a ponte do 
4066, permitindo e nao permitindo a passa- 
gem da corrente. 

Repete-se o que foi dito para as outras 
quatro chaves. Lembre-se de que cada 4066 
possui quatro chaves e, portanto, sao necessa- 
rios dois circuitos integrados ja que sao cinco 
os sinais a serem controlados. 

Para a instalagao do circuito repetidor no 
micro, deve-se respeitar a mesma posi^ao (ori- 
ginal) das liga^oes entre os conectores; caso 
contrario, uma tecla podera produzir o carater 
de outra, isto e, C4, C3, C2, CO e Cl corrcs- 
ponderao, respectivamente, a C4\ C3\ C2\ 
CO* e Cl*. £ importante frisar que os sinais 
dos pinos C4, C3, C2, CO e Cl do conector 
devem primeiro passar pelo circuito de repeti- 
Qao para entao seguir a placa do teclado: C4\ 
C3\ C2*, CO* e Cl*. As outras liga^oes do co- 
nector devem ser mantidas. 

Com rela9ao ao conector, foi necessaria a 
sua troca e quanto a alimenta9ao de 5 V, do cir- 
cuito de repetu^ao, foi tirada do proprio micro. 

A coloca9ao do circuito pode ser feita no 
chassi superior do micro, intemamente. A cha- 



ve mecanica e o led do monitor devem ser co- 
locados extemamente. Scmpre que o micro for 
ligado, o led acendcra e se o circuito de repeti- 
9ao for acionado, o led piscara. O peri'odo de 
repet^ao pode ser controlado porum trimpot. 

Este trabalho foi desenvolvido no CP-200, 
mas se adapta em outros equipamentos da li- 
nha Sinclair. Para isso, basta recorrer as figu- 
ras 3 e 4 , localizar os sinais (C4, C3, C2, CO e 
Cl) e usa'-los. Os conectores referidos sao os 
que ligam a placa principal a placa do teclado. 



Marcelo Shiroma Lancarotte — Invertor de vi- 
deo — A tAcnico em mecSnica, form ado pe/a 
FAT EC em 1982. Atualmente estA estudando 
And Use de Si stem as a mvel de p6s-gradua$ao e 
se dedica a projetos e construpao de dispositi- 
vos eletrdnicos. 

AndrA Koch Zielasko — Teclado macinico, 
Adaptando joystick. Video inverso no micro 

— frequentou por dois anos o curso Tecndlo- 
go de Processamento de Dados na Unisinos — 
RS. Atualmente, estuda as linguagens BASIC, 
Assembler, FORTRAN e COBOL e pesquisa o 
uso dos micros de Idgica Sinclair nas Areas de 
Astronomia e Telecomunica^oes. 

Humberto Kazuo Nakashima — Repetidor de 
teclas — tern 19 anos e A autodidata em Ele- 
trdnica, principal mente a digital. 
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RIIMGO R-470 CHEGOU A CIDADE. 

OS OUTROS MICROS QUE SE CUIDEM. 



Omicrocomputador flingo R470e,<fis parade, o melhorernsua category E mais rapidonaexecugSo deprogram as, of erece amplas possibilidades de 
expansSo eeoiinico micro totalmente projetado e desenvolvido no Brasil, aprovado peta SEI - Secretary Especial de Inlormatica. 

Um verdadeiro hetii nacionat. 

Voce pode con tar comele para resolver problems pessoais ou prolissionais. ou simplesmente para se divert*. atravesde vanosjogos dispomveis em 
cartochos ou fiias. 

Alife, cartucho e o qu e nSo f al ta para o fi i n go. Ele e com pativel com todos os p rogramas do f amoso Si ncl ai r e possu i e qurpamenlos pen renoos 
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Compare o Bingo R47Qcom os similares e comprove: nunca aparecee um micro pessoal tao profissional por esias redondezas. 
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SHIMIZU. T., Programapao 
COBOL — Curso Basico, Editora 
Atlas. 

| Este livro foi escrito com o 
oujetivo de difundir a linguagem 
COBOL em termos compreensi- 
veis mesmo para os que nunca ti- 
veram contato com essa lingua- 
gem de programagao comercial. 
Destina-se tamb6m a programa- 
dores j£ experientes que tenham 
necessidade de realizar consultas 
esclarecedoras sobre as formas 
mais gerais de cada comando ou 
instrugao COBOL. Ao longo do 
texto h£ farto material ilustrati- 
vo, exemplos, fluxogramas e fi- 
guras, com a finalidade de facili- 
tar a assimilagao da materia. Tam- 
b6m apresenta exercicios, projeta- 
dos para que o leitor possa en- 
contrar as solupoes e formular os 
seus proprios programas. 

ANDREW. J., Programando seu 
Computador. EB Informitica. 

| Este livro tern por objetivo au- 
xiliar o usuario de microcompu- 
tadores, ou mesmo os que nao te- 
nham um equipamento mas quei- 
ram saber quais aplicapoes e recur- 
sos ele possui. 

Nesta obra, todos os progra- 
mas foram subdivididos em cinco 
etapas, para melhor compreensao 
por parte do usuario: 

• Configurapao mfnima — de- 
monstra ao leitor quais as exigen- 
ces ou capacidade minima que o 
equipamento deve ter para que o 
programa seja executado; 

• Equipamentos — mostra quais 
equipamentos sao compati'veis 
com o programa; 

• Descrigao — mostra ao usuario 
as utilidades do programa e suas 
melhores aplica<p5es; 

• Execupao — a maneira correta 
de executar (rodar) o programa; 

• Rotinas — subdivide o progra- 
ma em rotinas. onde poderao ser 
melhor visualizados os grupos de 
comandos necessdrios e a Ibgica 
do programa. 



LEDERMAN. C., Introdupao d 
L inguagem BASIC para 
M icrocomputadores , Cartgraf 
— Editora. 

| Escrito de uma forma clara e 
pr^tica, d um livro autodktetico 
no conteudo e na forma. Sua lei- 
tura e compreensao prescindem 
mesmo da posse de um micro com- 
putador. Cont^m exercfcios simu- 
lados ao fim de cada capitulo, or- 
denados de forma I6gica e precisa, 
bem de acordo com o que se espe- 
ra de dados processados num 
computador — a rapidez na assi- 
milapSo das mat^rias 6 uma inevi- 
t^vel conseqiiencia, tanto para os 
que jd se iniciaram na linguagem 
BASIC em escolas ou institutos 
como para os que jamais viram 
um terminal de vi'deo. 

Totalmente ilustrado com sai'- 
das de vi'deo de um micro, pode- 
se dizer que essa introdupao ao 
BASIC nao £ apenas um livro es- 
crito, mas digitado, tal a preocu- 
papao do autor em tomar simples, 
facil e autodid£tico o aprendizado 
da linguagem mais popular do uni- 
verso dos microcomputadores. 
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TUCCI, W.; MOREIRA, J.; 
FALCONER, D., A Primeira 
Mordida , Editora Nobel. 

9 A Primeira Mordida tern o 
objetivo de fornecer as informa- 
poes necessarias ao aprendizado 
da linguagem BASIC, procurando 
introduzir o computador de for- 
ma didatica dqueles que se ini- 
ciam no mundo da Informatica, 
com pequeno ou nenhum conhe- 
cimento anterior no campo da 
computapao. O livro traz a im- 
plementapao da id6ia de diagra- 
ma de blocos e seus respectivos 
comandos na listagem das codifi- 
capoes BASIC, e todos os progra- 
mas apresentados, como exem- 
plo ou sugestao, vem acompanha- 
dos de um grupo de perguntas re- 
ferentes a cada situapao durante 
a rodagem, permitindo uma r3- 



pida interapS’o livro- usudrio- m3- 
quina. 

Entre os assuntos abordados, o 
livro apresenta: "Variaveis"; "Dia- 
grama de Blocos"; "Desvios e De- 
cisoes"; "Matrizes"; "Sub- roti- 
nas"; "Manipulapao de Caracte- 
res" e "Graficos". Como apendi- 
ce. Breve referincias, DOS 3.3 e 
Mensagens de erro. 



MIRSHAWKA, V., BASIC sem 
Segredos, Editora Nobel. 



VICTOR MRSH/WKA 




| BASIC sem Segredos 6 o livro 
que darS ao leitor as condipoes de 
conhecer a linguagem BASIC e 
suas aplicapoes, apresentando-a 
em tres est£gios: elementar, inter- 
medi^rio e avanpado, tendo como 
objetivo final ensinar a programar. 
Atrav6s de exemplos e ilustrapoes, 
de uma forma clara e objetiva, o 
autor traz ao leitor os conceitos 
do BASIC e um completo conhe- 
cimento da sintaxe desta lingua- 
gem de programapao. 

Dividido em seis capi'tulos. 
BASIC sem Segredos aborda: "A- 
plicapao e um pouco de historia 
sobre os computadores"; "A lin- 
guagem BASIC elementar"; "O 
BASIC intermedi^rio" — com des- 
taque para o par READ- DATA, 
para as variaveis alfanum6ricas, va- 
riaveis indexadas e funpoes mate- 
maticas especiais; "O BASIC avan- 
pado"; "O sofisticado MAXXI da 
linha Apple" e um capitulo abor- 
dando "0 uso do microcomputa- 
dor na Educapao", destacando os 
seus beneffcios e alguns possi'veis 
malefi'cios. Em suma, o livro 6 
importante para todos aqueles 
que querem, ou precisam, utilizar 
com eficScia micros de qualquer 
uma das linhas fabricadas atual- 
mente no Brasil. 

GOTTFRIED, B. S Programapao 
com BASIC, Editora McGraw-Hill. 

H Esta obra tern por finalidade 
fornecer um curso de programapao 
de computadores empregando a 
estrutura padronizada da lingua- 




programaqAo 

COM BASIC 




gem BASIC. Assim sendo, todas 
as caracterfsticas principals da lin- 
guagem serao analisadas. Paralela- 
mente, a obra apresenta o desen- 
volvimento de programas Ibgicos, 
eficientes e ordenados. Assim, o 
leitor poderS absorver os princi'- 
pios da boa pr^tica de programa- 
pao, bem como as regras especi'fi- 
cas do BASIC. 

A linguagem adotada 6 delibe- 
radamente elementar , o que per- 
mits que o texto seja facilmente 
compreendido por uma imensa 
gama de leitores, desde estudantes 
a profissionais com experiencia 
pr£tica. O livro est2 organizado 
em duas partes. A parte I, "BA- 
SIC Basico", cont6m as caracteri's- 
ticas principais da linguagem mais 
empregada. Este material, por si 
s6, permite o ensino de um curso 
rSpido de programapao. A Parte 
II, "BASIC Avanpado", aborda 
caracterfsticas mais profundas, 
tais como sub-rotinas, declarapoes 
para a manipulapao de matrizes e 
de arquivos. A obra 6 encerrada 
com um capftulo denominado 
"BASIC Ampliado", em que se d3 
enfase particular £s implantapoes 
em microcomputadores. 

SETZER, V. ; MELO, I, A 

Const ruqao de um Compilador, 
Editora Campus. 

I Com finalidade didatica e in- 
formative, esta obra tanto podera 
ser empregada como livro- texto 
para a discipline de teoria e cons- 
trupao de compiladores quanto 
como referenda para profissionais 
de processamento de dados. Divi- 
dida em duas partes, trata inicial- 
mente de andlise lexica e sintatica, 
apresentando o metodo simples e 
eficiente de andise sintatica de- 
senvolvido por V. W. Setzer. 
Aborda, em seguida, an^lise de 
contexto, gerapao de codigo e de- 
talhes de implementapao, sugerin- 
do e orientando, como trabalho 
pratico, a execupao de um projeto 
de compilador para a linguagem 
Pascal. 
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ACompuShop apresenta com 
exclusividade o Apple que fala portugues: 

MicroEngenho 2. 



0 MicroEngenho 2 tem teclado destacSvel, 
com todas as letras majuscules e 
minuscules, a centos e sinais gr&ticos da 
lingua Portuguese que voci encontra em 
qualquer m£quina de escrever. 

E tudo isso aparece no seu monitor de video. 
Mas as caracterfsticas especiais do 
MicroEngenho 2 n3o param por al. 

Eie e o unico microcomputador no Brasil 
totalmente compatfvel com o Apple II Plus 
e o Apple He, e voce escolhe por meio de 
um''switch" com qual opcSo quer 
trabalhar. AI6m do design semelhante ao 
dos microcomputadores de ultima gera^So 

1 IBM- PC), o MicroEngenho 2 tem teclado 
numerico reduzido para entrada de dados 
e possibilidade para se "sair" de um 
programa e recomepar o sistema, sem ter 
que desligar o equipamento. 

Venha at6 a CompuShop conhecer de 
pertoo MicroEngenho 2. 

N6s e ele falamos a sua lingua. 












SAO PAULO L Rua D i Mario Farraz 37 - Tel, : [01 1 > aiS-0093 * Av. Pres, Ju&celino Kubitschek, 839 - TeL : 101 1 \ 862-7700 

Telex: {011)36611 BYTE BR 

LONDRINA: Av. Higendpolis, 465 Tel : 10432) 23-7110 



A CompuShop entrega e in^tala o MicroEngenho 2 em seu oscrll6rfo e voc& ainda flanha um treinamento de 4 Noras no local . 
So voc$ reside em outre cidade, fspa o seu pedido pelo tolefone (011J 800.S123. A CompuShop page a ligecao. 



Apple a marcs registrada da Apple 
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• O SEN AC est2 oferecendo urn curso de 
T^cnicas Avanpadas em BASIC, totalmente 
pratico, com aulas ds 3?s e 5?s, com durapSo 
de duas horas cada. Os alunos contarao com 
uma sala equipada com 20 micros, um por 
aluno, e duas impressoras de 200 CPS. As ma- 
tri'culas encontram-se abertas na Rua Santa 
Luzia, 735, 13? andar. tel.: (021) 220-8891, 
Rio de Janeiro. RJ. 

• O Instituto PsicodinSmico de Idiomas 
oferece cursos intensivos de BASIC para prin- 
cipiantes e empresas interessadas em treinar 
os seus funcionSrios. A duragao do curso e de 
duas semanas, com carga hor^ria de 1 1 horas 
por semana. O prepo do curso t de Cr$ 50 
mil, sendo que Cr$ 10 mil de inscripao e 
Cr$ 40 mil no im'cio do curso. Maiores infor- 
magoes na Rua Martiniano de Carvalho, 200, 
tel.: (011) 284-3912, Sao Paulo, SP. 

• O Centro Latino-Americano de Desen- 
volvimento da Inform^tica oferece, para o 
mes de abril, os cursos de Processamento Dis- 
tribui'do e Gerencia de Projetos, ambos com 
carga hor^ria de 21 horas, ao pre^o de 29,4 
ORTN. Inscribes na Rua Jos£ Gonpalves de 
Medeiros, 96, Madalena, tel.: (081) 227-2307, 
Recife. PE. 

• A COMPUTRON Engenharia & Infor- 
m^tica Ltda. oferece regularmente os cursos 
de BASIC, BASIC avanpado e COBOL, em 
turmas reduzidas, com material didStico gra- 
tuito, aulas prdticas individuals, certificado de 
conclusao e diversos horirios (dois dias a noi- 
te ou sabados a tarde). O enderepo e Av. Bra- 
sil, 3.909, sala 5, tel.: (0332) 21-6042, Gover- 
nador Valadares, MG. 

• A Microchip Computapao Com^rcio 
Ltda. vem promovendo cursos de programa- 
pao em BASIC para principiantes, estudantes 
do 19 e 2? graus, universit^rios e turmas espe- 
ciais para profissionais lioerais, segundo suas 
especial izapoes. Alem de aulas pr^ticas e teb- 
ricas em microcomputadores, os participantes 
tern a sua disposipao horSrio livre para uso dos 
equipamentos. Informapbes na Rua Miguel 
Lemos, 41, sala 606, Copacabana, tel.: (021) 
227-8803, Rio de Janeiro. RJ. 



• A ERKLA oferece no mes de marpo cur- 
so de BASIC III. Este curso e destinado a t6c- 
nicos e engenheiros, a durapao 6 de 20 horas e 
o prepo 6 de 15 ORTN. Maiores informapbes 
na Av. Pacaembu, 1261, tel.: (011) 67-8339, 
Sao Paulo, SP. 

• A Datamicro InformStica Ltda. est3 rece- 
bendo inscripoes para os cursos Introdupao 
aos Microcomputadores, Linguagem BASIC, 
Microcomputador para Crianpas e Microcom- 
putador Aplicado na Engenharia, todos no 
mes de marpo. Informapbes na Rua Visconde 
de Piraja, 547, loja 211, Ipanema, tel.: (021) 
287-521 1, Rio de Janeiro, RJ. 

• A 4C — Crianpas Criando Com o Compu- 
tador, al£m dos cursos para crianpas, est£ ofe- 
recendo cursos para adultos. Os cursos s§o de 
BASIC, com turmas aos sabados das 8:00 3s 
13:00h, im'cio dia 17 de marpo, e ds terpas e 
quintas-feiras, das 19:30 £s 22:00h., im'cio dia 
20 de marpo. Informapoes na Av. Rouxinol, 
201, tel.: (011) 61^595, Sao Paulo, SP. 

• A CompBel conti nua promovendo cursos 
de Introdupao a Microcomputadores para ado- 
lescentes e estudantes de m'vel colegial. O cur- 
so 6 realizado as 2?s e 4?s ou £s 3?s e 53s, em 
dois hor^rios: 14:00h ou 16:30h. A carga ho- 
r^ria £ de 20 horas, e as aulas pr^ticas s£o em 
um TK85. A CompBel tamWm oferece cursos 
de BASIC I e II e Visicalc Plus. Maiores infor- 
mapbes na Rua Gregbrio Paes de Almeida, 62, 
Vila Madalena, tel.: (011) 65-9857, Sao Paulo, 
SP. 

• A Mikro Inform^tica continua oferecen- 
do com sucesso os seguintes cursos, com v£- 
rias oppbes de hor^rio: InformStica para jo- 
vens, Operapao e programapao de microcom- 
putadores, Linguagem BASIC e BASIC para 
crianpas. Informapbes e inscripoes na Av. 
Afonso Pena, 952, sala 627, Centro, tel.: 
(031) 222-3035, Belo Horizonte, MG. 

• A loja Minas Digital oferece regularmen- 
te cursos de programapao em microcomputa- 
dores para pessoas jurfdicas e clientes. O en- 
derepo 3 Rua Araguari, 692, tel.: (031) 337- 
7946, Belo Horizonte, MG. 

• A ADP Systems estara oferecendo os se- 
guintes cursos nos meses de marpo e abril: 
Operapao de Sistemas, Programapao de Siste- 
mas, AnSlise de Sistemas, BASIC e Assembler. 
Os cursos sao realizados em turmas pela ma- 
nha, tarde e noite. Maiores informapbes na 
Av. Paulista, 1439, 39 andar, cj. 31, tel.: 
(011) 285-3283, Sao Paulo. SP. 



• O SENAC PRODEMP (Programa de De- 
senvolvimento Empresarial) estara promoven- 
do o curso "Projetos de O&M integrados a mi- 
croinformStica." O curso ira de 10 a 17 de 
abril, com carga hor£ria de 18 horas, das 
19:30 as 22:30h. Informapbes na Rua Dr. Vi- 
la Nova, 228, 2? andar, tel.: (011) 256-5522, 
Sao Paulo, SP. 

• Metodologia e Tacnicas para Aumento 
do Desempenho do Computador, Auditoria 
do CPD e de Sistemas Workshop, Engenharia 
de Programas, Projeto de Redes de Telepro- 
cessamento, Administrapao de Banco de Da- 
dos e Treinamento Gerencial em Processamen- 
to de Dados sao os cursos oferecidos no mas 
de abril pelo SCI — Sistemas, Computapao e 
InformStica. Informapbes na Rua Jardim Bo- 
tanico. 635, 8? andar, tel.: (021) 294-7438, 
Rio de Janeiro, RJ. e na Av. Paulista, 2001, 
grupo 1020, tel.: (011) 289-0099, Sao Paulo, 
SP 

• Utilizapao do dBASE II, UtilizapSo do 
WORDSTAR e Formapao de Programadores 
sao os cursos oferecidos no mas de marpo pela 
ORT Brasil. Informapbes na Rua Dona Maria- 
na, 213, Botafogo, tel.: (021) 226-3192, Rio 
de Janeiro, RJ. 

• A FUNDEP e a Universidade Federal de 
Minas Gerais estarao oferecendo os seguintes 
cursos para o mes de abril: BASIC m'vel avan- 
pado, FORTRAN m'vel avanpado, Pascal m'- 
vel avanpado, VisiCalc e Programapao de Com- 
putadores COBOL. Informapbes na Av. An- 
tonio Carlos, 6627, Pampulha, tel.: (031) 
441-4980, Belo Horizonte. MG. 

seminArios 

• O Instituto Brasileiro de AdministrapSo 
Municipal — I BAM j£ tern programados para 
abril os seguintes seminArios: Automapao de 
Escritorios, Organizapao de Banco de Dados, 
InformAtica Distribui'da, Redes de Telepro- 
cessamento, Como o UsuArio Pode Especi- 
ficar Sistemas e Projeto de Sistemas de Pro- 
cessamento Distribui'do. Informapbes no Lar- 
go do I BAM, n? 1, Botafogo, tel.: (021) 266- 
6622, Rio de Janeiro. RJ. 



• Para informar ao lertor sobre os cursos que 
estSo sendo oferecidos, a revista recolhe in- 
formapbes em dlversas instituipbes ou as rece- 
be pelo correio. Portanto, n£o nos responsabi- 
lizamos por quaisquer alterapbes posterior- 
mente efetuadas por estas instituipbes nos 
programas ou prepos. 




Rua Visconde Silva, 25 — 
Botafogo — Rio de Janeiro — RJ 
CEP. 22281 - Tels.: (02 1 ) 
286-1797, 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva, 
1227 — Jardim Paulistano — Sao 
Paulo - SP - CEP. 01441 - Tel.: 
(011) 853-3800. 



/Micro 




NUMEROS ATRASADOS? 
PEQA HOJE MESMO 

• Voce pode fazer o seu pedido por carta. 

• Junte a este um cheque cruzado, 
nominal a ATI Editora Ltda., no valor 
correspondente ao seu pedido. 

• E nao se esqueca de enviar o seu 
endereqo. 
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Voo* s6 descobre o Quanto precise de um 
putsch* JR de Syodsta depots que o conhece de perto. 

Voce vai ter csrtaza de que fez um Ctimo negdoo ao 
edquirf-to asstm qua o cotocar ne sue empresa ou na sue 



O JR da Sysdata 6 r£pido, 6 vers&til, 6 compacto. 



Contabtlidade. control® de contas a pager, controls de 
contss b receber, folha de pagamento, controls da esto- 
que, controls de diemes, rela tdrio de clientes, mala direta, 
cAkajlos de or$ementos fine nceiros, control de processes 
industrials, c&iculos de engenharia, cilculos de estatfsti- 
css, fungOes matemdtieas, funpGes Idgicas em cadeia de 
caracteres (STRINGS), grtrficos, jog os animados, progra- 
mas educaciortais. 

O JR PERMITS AINDA: 

O acesso a grande? sistemas de computagao, a corouni- 
capfio entra de deperta merit os de Empress, efetuer pro- 
gramas espeofficos para cada Empresa. 

E.comose niobastasse, ale i o MicroCemputador da 
imnor prepo do mertedo. 

Com todas asqualidades que tern, o JR daSysdats nem 
prsciseva $er tao econdmico, Mas 6. 

Afinal, ete 6 o mais compteto M icro-Computador de sua 
gerapio. 

Inclusive no prepo. 

Voc6 pode testa r estas e out r as qualidades do JR em 
qualquer dos nossos re vended ores. 



AV. PACAEMBU, 738 
CEP 01155- TEL : 67.5900 



BEVtNtlEDOilES: s*0 PALILOC-pit.1 Ad Dal a 8H .8300; ADP Syrtwn 227.6100; Sucker OS i 7995; C'.,onca 36.6961; Compunth kwmg 712.9004; Coiv.uuid 3S2 BS33 Corn 
puiertond 231.3277; Fotn Lto 35 7131 ■ SS.H'JMS. GuWio mSDSI; Hm 203 5697; In reduce aS2.5£03 Lema 210.593; M.crore. 98 1 .6022, MipioiaciE3.4a41; Mova Gera- 

C4» B 14.3663; O.P.A. 36.6685; Plandata 275.0191; Plamal 543.9663; Sacco B1 4.0698: Sefvimec 222.1611. Surtnar 2S2 W09: S-O.S 06.7666; Runner's 469.0887; Cmveni 
CotmcuScr Houh 862,5855: 32.8322, W-ciocq*. 32.4448; Rlc Cl#fo ■ Coml. Micro Cosmo* 34 .5001 ; nkMffta Ar*io - Compgfys 1 1% - Arkru ■ Oop*C 41 .3779; 

TdubdiA - Ens#con 33.2 252, M^i JBi n^3ti. Pm# 9 t* Inlordai a 843,5188: Sip-c 33 Ji£>> Cdt mduva - Tetecfatro 22 .8118; RIO 

DE JANEIRO/Cofrital Clap m.0734; Computk|ue 267 1D93; QDM mlcwmftiicfl .0744- Jfi d* Cto 745-41 W; Knisi.^n 391,3165; Suprirr^nto 274. B845, rbpolt, Foio Oli 
m 42 1391. MINAS GERAI 5 , B*k> Ccurpucily 226 6336; Computet 225 2617. Kcm-tro^ 225.0644, Minas Digital 337.^48;^ - Com^ciqua 721 SfllO; 

RIO 0 RANGE DO SUL. Fono Al ■ A^flcvrinn 26 1 1^4: Apforra 24 0465; Digrtul 24 1411; Micros 22.9702; PalolRt ■ Sisiemanka 22.S10, Novo Hambutgo Microowga 
93.4721; PA RAMA 7 Curitiba ■ CompKilique 243.1731; Micro System 232.3523; Mo#^pn 232-06S3; Poota Gr»*# Grupo Data Momory 24.6191; Londrfra Shop Compute 
23 9574: GUlAS/GoUnJa - Casa do Mi^ocompuwdor 223 J 165: Grupom 225 B226, SANTA CATARINA r FloriBn6poJi» CmUo 77 6333' in (otw 23 4777 HRA$I LI A/ Dtatrito 
F^dMJ Com pusihow 273 2128; Diqrr ^ 225 .4534; MATO QROS5Q DO SUL/Campo Granda DRL 382.6487, Video 321 4220, Ct AR A /Porfatm Siacompy 244.489 a, 
P A R AID A / JoAo Paaacba Maduea 221 6743, PERN AMBU C07 RkH a Eingttd 24 1 1385 







Pergunta — Tenho tres duvidas que 
surgiram com o uso do meu CP -200: 

1) Na MS nQ 27, pag. 64, Seqao Dicas, 
ao rodar a dica "Teste a ROM", o resu I- 
tado obtido foi 855106 e nao 855660, 
co mo estava escrito. £ defeito do meu 
micro ou e erro de impressao ? 

2) Na MS nQ 23, pag. 76, a dica "In- 
verta o video " nao e aceita pelo 
CP -200, e ocorre erro na bora de in- 
troduzir os comandos atraves do moni- 
tor Assembler publicado neste mesmo 
numero. Por que ocorre erro, se o 
TK82-C e o CP- 200 sao compativeis? 

3) Ao ten tar carregar o meu micro 
atraves da funcao LOAD, ocorreram 
erros como, por exemplo: ao / i star, 
aparece todo o programa, mas, ao ro- 
dar, o computador simp/esmente igno- 
ra alguns trechos do programa; e ainda 
surgiram linhas inexistentes no progra- 
ma e fora de ordem ( linhas 100, 105, 
480 (?) e 110/ Esses erros ocorreram 
somente em um programa. Qua I e a 
causa destes erros ? (Fernando Cesar 
M. Brunner, SP). 

MICRO SISTEMAS - Como voce, 
uma serie de outros usuirios nos escre- 
vem diariamente, com duvidas seme- 
lhantes. Tentamos, na medida do 
possivel, responde-las, repassando a 
experiencia que adquirimos como 
u$u£rios nestes dois anos de existen- 
ce, porem certas questoes indepen- 
dem do nosso conhecimento. Infeliz- 
mente, nao e praxe da industria nacio- 
nal manter as revistas informadas so- 
bre modificagoes em seus equipamen- 
tos, e nao raro temos conhecimento 
das particularidades de certos equipa- 
mentos atraves de leitores e colabora- 
dores que nos escrevem relatando suas 
experiencias. 

Como nao e possivel manter em 
nosso CPD um exemplar de cada ver- 
sao (alguns micros nacionais, de uma 
mesma linha, chegam a ter sete ou oito 
disposigoes internas dos circuitos dife- 
rentes), algumas questoes ficam preju- 
dicadas no seu esclarecimento. Em to- 
do caso, e sempre conveniente anali- 
sar o problema detalhadamente. Se os 
defeitos independerrl do programa, tal- 
vez o micro esteja com problema. Mas 
se o defeito e setorizado, como e o 
caso, pode ser o Sistema Operacional 



modificado. De qualquer forma, um 
diagnostico nao invalida o outro, e 
e necessario que a explicagao do que 
ocorre com seu equipamento seja mais 
clara e detalhada para que possamos 
tentar entender o que realmente esta 
acontecendo. 

Pergunta — Tenho algumas duvidas 
com re/aqao a dois programas pub/ica- 
dos em MS nQs 23 e 25, respectivamen- 
te "Aventuras na selva" e "Jornada nas 
estre/as". No "Aventuras", minhas du- 
vidas sao: 

1 — Nao entendi a linha 126: 126 IF 

Z THEN GOTO Z 

2 — A I inha 601 manda desviar para 
a linha 39, mas na I is ta gem nao existe 
a linha 39. 

3 — A parte do programa que explica 
a digitacao (pag. 52) recomenda usar o 
comando GOTO 7, no caso de parada 
do programa, mas nao existe a linha 1. 

E no programa "Jornada nas est re- 
las", o computador acusa erro 2 ao 
dar entrada nas variaveis utilizadas nas 
linhas 1 ate 33. (Wilson F. de Souza 
Correa, RS). 

MICRO SISTEMAS — Com relagao ao 
programa ''Aventuras na Selva", as 
corregoes que havia ja foram publica- 
das na Mensagem de Erro, mas, mesmo 
assim, estas corregoes nao comprome- 
tiam de forma alguma o funcionamen- 
to do programa. Para facUitar, vamos 
repetir novamente estas erratas: 

• A linha 55 correta e: 55 IF C < 
LENU$ THEN GOTO 51. 

• A linha 420, que nao saiu im- 
pressa, e: 420 IF NOT CODE B$(2) 
THEN GOTO 56. 

• E na linha 90, da tabela de dados 
do monitor (pag. 49), o certo e: 90, > 

IEIBIF. 

Com referenda as suas duvidas, a li- 
nha 126 usa um desvio condicional 
comandado por um operador logico 
(no caso, a variavel Z). Isto significa 
que se Z = 0, entao nao ha desvio, mas 
se Z < > 0, o programa e desviado para 
a linha apontada por Z. Sobre opera- 
dores logicos e desvios condicionais, 
leia o artigo "TK82-C: Um micro so 
no tamanho" (MS n9 14, pag. 36) eo 
capi'tulo do manual referente a desvios 
condicionais e operadores logicos. 



Envie suas perguntas 
para MICRO SISTEMAS/ 
SEQAOMS RESPONDE: 
Rua Visconde de Silva, 25, 
Botafogo, 

Rio de Janeiro-RJ, 
CEP. 22281. 



Com relagao as segunda e terceira 
duvidas, nao h4 erro nenhum: se a exe- 
cugao de um programa e dirigida para 
uma linha que nao existe, o programa 
executa a proxima linha existente. Isso 
nao e erro de programagao, apenas pa- 
rece ser. 

No programa "Jornada nas estre- 
las", trata-se de um erro de digitagao. 
Proceda da seguinte forma: quando o 
computador parar com erro 2 (veja no 
manual que tipo de erro e o 2), locali- 
ze a linha em que tal erro ocorreu, e 
verifique qual variavel nao recebeu 
atribuigao (LET). 

As listagens estao corretas e, quan- 
do ha falhas, nos imediatamente pu- 
blicamos e respondemos por carta ou 
telefone. Pelo que percebemos de sua 
carta, voce esta com alguma dificulda- 
de com programas longos. Nao desani- 
me e mantenha sempre o manual perto 
de voce porque ele pode responder a 
99% de suas duvidas. E quando nem o 
manual for capaz de ajuda-lo, escreva 
explicando detalhadamente qual o erro 
e nos tentaremos ajuda-lo. 

Pergunta — Gostaria de uma exp/ica- 
$ao sobre como utilizar PEEK e POKE 
no TK82-C, pois o que existe no ma- 
nual e muito superficial para quern 
esta iniciando na linguagem Assembler. 
(Edna Badin, SP). 

MICRO SISTEMAS — As instrugoes 
PEEK e POKE sao duas instrugoes 
muito utilizadas na programagao dos 
micros e estao associadas a leitura e 
gravagao dos bytes na memdria. Pode- 
mos imaginar a memdria do compu- 
tador como uma grande estante com 
milhares de gavetas. Cada gaveta possui 
um numero que corresponded ao seu 
enderego na estante e pode guardar um 
numero qualquer inteiro e positivo 
entre 0 e255. 

Dessa forma, se na gaveta 19500 for 
arquivado o numero 30, poderemos 
dizer que o byte do enderego 19500 
possui o valor 30. A fungao PEEK le o 
conteudo da gaveta. Assim, PRINT 
PEEK 19500 deved resultar no nume- 
ro 30 na tela do vi'deo. A instrugao 
POKE arquiva o numero na gaveta e, 
dessa forma, POKE 19500, 40 altera o 
valor da gaveta 19500 para 40. 




Inclusive para quern n 
precisa comprar 10 disquetes 
aeumavez. 






Datalife apresenta sen album dupk): uma 
embaJagerti adcquada para queni precise 
de um ou dois disquetes agora e so vai 
precisar de outros daqui a algum icmpo. 
Em vez de voce Hear comprando discrete 
solio por ai, que passa de mao cm rrtio, 
com o Alburn duplo voce lem roda a 
seguranga que existe. 



Ek content apenas dois disquetes 
e vem lacrado. 

E o que lem dentm* voce ja conhcce; 

I Jisqueiev Datalife com certificate 
entica K com de.se mpen ho muito aleni 
das norm as tradicionais, e lOO^o litres 
de erros. 

Disquetes DataLife - na embalagem 
normal ou no d)bum duplo, a garantia 
total de um nome que e lider mundial em 
msdia magnet ica HexiveL 



Vbrbatim 



Prpduzidq na Tonn Franca df Manaus 






ETIQUETAS 



DISQUETE 



FITAS 

magn£ticas 



£a«« os - 1 
'pronta 1| 
eN TB& GA 



ARQUIVO 

PARA 

DISQUETE 



ARQUIVOS 
MODULARES 
PARA PASTAS 



FORMULARIOS 

CONTINUOS 



MESAS PARA 
MICROS TERMINAIS 
E IMPRESSORAS 



FITAS 

IMPRESSORAS 



PASTAS PARA 

FORMULARIOS 

t^^fONTl'NUOS 



Nao perca tempo! Com este utilitario para a I inha Sinclair voci podera, 
a parti r de um REM de 1 byte, construir REM de quantos bytes quiser 



de infinitos bytes 



Daniel Hendrick 



U ma das tarefas mais tediosas 
quando se quer montar um 
programa em linguagem de md- 
quina i montar um REM com 
o numero de bytes necessarios para de- 
pois inserir os dados hexadecimais. 
Quern j a montou programas de mais de 
1 K sabe do que estamos falando. Que 
tal, entffo, um programa que, a partir de 
um REM de somente 1 byte, o multipii- 
casse, num espa90 de tempo impercep- 
tivel, em quantos bytes fossem necessd- 
rios? 

O programa descrito a seguir faz exa- 
tamente isto: monta um REM com o 
numero de bytes desejado. Esse REM 
deve ser localizado no initio do progra- 
ma. Depois daremos as dicas de como 
usa-lo para criar varios REM ou aumen- 
tar mais de uma vez o mesmo. Para 
montar o nosso programa, usaremos o 
monitor Assembler, publicado em MS 
n9 23 de agosto de 83. 



Listagem 2 



OPERA£AO 



Para come9ar a desenvolver um pro- 
grama em linguagem de mdquina, voce 
deverd criar o seu REM de um compri- 
mento igual ao numero de bytes do seu 
programa. Para isso, voce dara entrada 
no item H do seu monitor, e fomecera 
o numero de bytes necessarios ao seu 
programa. Apos isso, o monitor automa- 
ticamente criard o seu REM e retomard 
ao monitor. 

Para deixar o seu REM no come9o do 
programa, basta deletar a linha 1, to- 



1 REM 11X11111111111111111111 
1111111111111 

2 REM 1 



Na Memphis, voce 
tem 100%de garantia quanto a 
qualidade do produto, pois caso 
ele n§o satisfatpa suas exigencies, 
voc£ simplesmente o devolve. 



16514 

16522 

16530 

16538 

16546 



mando cuidado para nfo mais entrar no 
item F do monitor (para evitar qualquer 
problema troque a linha 4500 por GO- 
TO 1030). 



Listagem 1 



A Memphis tem mais 
de 400 produtos e torna-se dif fcil 
listS-los aqui, por6m, basta um 
simples telefonema para a nossa 
filial mais prdxima e voce ter3 
imediatamente o pretpo de qualquer 
produto para inform^tica. 

Voce verS que nossos prepos sao 
os melhores do mercado. 



1010 PRINT ,,"**** MICRO EDITOR 
ASSEMBLER " JOSE CARLOS 

NISA" , "MICRO SISTEMAS/1983" , , , , , 
"MODOS DE OPERACAO: " , , , "A - INSE 
RE DADOS HEXADECIMAL" ,"B - INSER 
E DADOS DECIMAL" , "C - EXECUTA RO 
TINA ASSEMBLER" , "D - RETORNA AO 
BASIC" , "E - ARQUIVA EM FITA","F 
- INSERE LINHA DE DADOS" , "G - EL 
IMINA MICRO EDITOR", "H - EXPANDE 
REM" 

1090 IF U$ < "A" OR U$>"H" THEN GO 
TO 1070 



CRIANDO VARIOS REM 



Para criar vdrios REM, serd necessario 
mudar alguns valores na rotina em lin- 
guagem de mdquina, contida no REM da 
linha 1. Para saber quais sao esses valo- 
res, veja na figura 1 como e escrita uma 
linha de programa na memoria. 

Serd necessdrio conhecer o endere90 
na memdria do primeiro byte do valor 
que indica a quantidade de byte do tex- 
to mais um do REM a ser expandido e 
que chamaremos variavel A. Chamare- 
mos varidvel B o endere90 na memdria 
do primeiro byte a ser deslocado dentro 
do texto. 

Agora, efetue as seguintes opera9des: 



digitacAo 



Primeiro, acrescente ao monitor As- 
sembler a listagem 1 . Em seguida, digi- 
te a listagem 2. O REM da linha 1 com- 
porta 36 bytes disponiveis onde vai ser 
inserido o programa em linguagem de 
mdquina que vai expandir o seu REM. O 
REM da linha 2 comporta 1 byte dispo- 
nivel e 6 este que nos vamos expandir e 
usar para as rotinas. 

Para concluir, digite a listagem 3, 
usando o modo A do seu monitor As- 
sembler. 



5500 PRINT "NUMERO DE BYTES ? 
5510 INPUT A 
5520 FAST 

5530 LET B=INT (A/256) 

5540 POKE 16515, A-256*B 
5550 POKE 16516, B 
5560 RAND USR 16514 
5570 SLOW 
5580 GOTO 1030 



SAO PAULO: Central de Vendas RIODE JANEIRO : Filial 

Av. Arnolfo Azevedo. 108 - CEP 01236 Praia do Flamengo. 66 - Bloco B - conj. 1519 
Telex:(01 1 ) 34545 - Sao Paulo — SP CEP 22210 - Rio de Janeiro - RJ 
T«l.: (Oil) 262-5577 Tel.: (021) 225-3469/205-3849 

Matriz: Av. Angelica, 35 - S3o Paulo - (011) 826-9500 
REPRESENTANTES 

BA - Salvador (071) 2416369 • DF - Brasilia (061) 223-3330 *MG - Belo Horizonte 
(031 ) 442-9472 • PR - Curitiba (041 ) 222-4831 • RS Porto Alegre (0512) 25-9273 • 
SC - Floriand polis (0482) 132 R. 15 • SP - Bauru (0142) 228-4305 • SP - Jundial 
(011) 434-3199 *SP - Presidente Prudente (0182) 22 7999 






POKE 16519, INT(B/256) 

POKE 16518 , B- 2 56* PEEK 16519 
POKE 16528, INT(A/256) 

POKE 16527 ,A-256*PEEK 16528 
POKE 16532, PEEK 16528 
POKE 16531, PEEK 16527 



MEMPHIS INDUSTRIA E COM£RCIO LTDA. 



Numero Quantidade 

da linha de b Y te do 
texto + 1 



NEWLINE 



• Revendedores e Fabricantes interessados: (01 1 ) 262-5332 

• Para encomendas o interurbano $er3 pago pela Memphis. 

Ligue direto (01 1 ) 800-8462 



E depois, entre normalmente no item 
F do monitor. ■ 



48 



MICRO SISTEMAS. marco/84 











Como os colegios estao se adaptando a era do microcomputador at i ado a Educapao e o que 
existe no mercado em termos de software aplicativo 



O microcomputador 
na sala de aula 



O microcomputador 
csta chcgando as 
escolas brasilciras. £ 
bcm vcrdade quc a 
porta da administragao e a mais 
fa'cil dc sc cntrar, mas ja ha 
casos dc plena utilizagao cm sala 
dc aula, com os alunos fazendo 
cxcrcicios dc matcma'tica ou 
comprccndendo mclhor a 
montagem de uma molccula. 

Mas isso c muito rcccntc e a 
experience mais antiga, das 
setc Escolas Americanas no 
Brasil, csta completando dois 
anos agora. 

Fred Kautz, rcsponsa'vcl 
pelos micros da Escola 
Americana do Rio de Janeiro, 
diz quc a cscola vcm rcalizando 
um trabalho semclhantc ao quc 
c descnvolvido nos Estados 
Unidos. (Elc mesmo dcu 
cursos para varios professores da 
cscola quc aplicam o micro 
como apoio dida'tico). No 
Scgundo Grau, ps alunos 
rcccbcm nogoes dc gomputagao 
c aprendem as linguagens BASIC 
c Pascal, maso primeiro contato 
com os micros sc da' ainda no 
prc-cscolar, a partir dos4 anos. 
Na cscola, ha duas salas dc 
micros, uma para o Primeiro 
Grau, sob a coordcnagao da 
professora Rita Nicdcrcr, com 
scis Unitron (APII) c dois 
Apple, todos acoplados com 
aparclhos dc TV a cores, c outra 
para o Scgundo Grau, sob a 
coordcnagao dc Fred Kautz, 
com dois CP-500 c scis TRS-80 
da empresa amcricana Radio 
Shack. Quanto aos programas, 
Kautz ex plica nao haver 
dificuldadc, pois como a lingua 
basica da cscola c o ingles, cle 
os compra nos Estados Unidos, 
ondc sao abundantes. 

DO MATERNAL 
AO PR£ VESTIBULAR 

M as como no Brasil 
isso ainda e 
novidadc, 
o Colegio Objetivo 
dc Sao Paulo contratou 
nove analistas quc, cm 
conjunto com os professores, 
descnvolveram 210 programas 
para todas as materias, desde 
o maternal ate o pre-vestibular. 
Com 30 mil alunos, o Objetivo 



possui diversos micros, entre 
CP-300, CP-500, APII e Micro 
Engenho, quc tambe'm sao 
utilizados para ensinar as 
linguagens BASIC e Logo. 

O Colcgio Pucri Domus, 
tambem dc Sao Paulo, e um dos 
pioneiros no uso do micro- 
computador cm sala dc aula, 
utilizando-o ha' um a no no 
Scgundo Grau c agora tambem 
no Primeiro Grau. Ainda na 
capital paulista, ha os colegios 
Bandcirantcs, quc usa micros 
para recapitulagao de aulas, 
c Etapa, quc os usa como um 
rccurso equivalent aos filmes, 
simulando ilustragocs. 

Ja' o Centro Educacional de 
Nitcroi vcm utilizando micros 
ha' um ano. Scgundo a 
coordenadora dc Informatica da 
cscola, Nicia Pereira Muniz, um 
trabalho conjunto entre os 
professores do Centro c a 
Embratel rcsultou na criagao dc 
20 programas para Matcma'tica 
c Portugucs quc, a partir dcstc 
ano, scrao utilizados para 
aprendizagem normal em sala 
dc aula cm duas turmas da 
quarta seric, c para rccuperagao 
dc alunos da quinta c sexta 
scries. Alcm disso, o Centro 
possui um Clubc dc Matcma'tica, 
como atividadc optativa, quc 
devera' fazer um projeto especial 
com microcomputadorcs, a scr 
cscolhido pelos alunos cm 
conjunto com o coordcnador do 
Clubc. Atualmente a cscola 
possui cinco CP-500. 

CULTURA 
DE INFORMATICA 

C om o objetivo 
imediato de 
“dcscnvolvcr uma 
cultura dc Informatica 
para uma utilizagao posterior", 
Lui's Antonio Silveira, diretor da 
Escola Senador Correia, no Rio, 
comprou um Unitron com 
varios pcrifcricos, inclusive uma 
impressora. Neste primeiro 
semestre, scrao dados na escola 
varios cursos para os 
professores, a fim de que eles 
proprios cheguem a desenvolver 
programas educativos para o 
Primeiro Grau. Dc qualquer 
modo, ja a partir do scgundo 
semestre, as criangas passarao a 



ter contato com os micros em 
excrci'cios de recuperagao, para 
melhor fixarem as aulas. 

Alcm destes, existem outros 
colegios que, ao inves de 
utilizarcm o microcomputador 
como suportc para o ensino 
das materias curriculares, 
limitaram-sc a ofcreccr a seus 
alunos um curso dc BASIC, 
como e o caso dos colegios 
Anhembi, Iavnc Beith 
Chinuch, Brasil, Bandcirantes, 
Etapa, UniversitaTio, Sagrado 
Coragao dc Jesus, Rio Branco, 
Brasil-Europa, Benjamin 
Constant c Santo Agostinho, 
em Sao Paulo; c Centro Federal 
dc Educagao Tccnologica Celso 
Suckow da Fonseca, colegios 
cstaduais Olavo Bilac c Paulo de 
Frontin, Colegio Franco- 
Brasilciro e Colcgio Bahiense, 
no Rio. 

O Colegio Bahiense esta 
entrando nesta a'rea estc ano e, 
para isso, vai comprar 10 
microcomputadorcs compati'veis 
com o TRS Color Computer. 
Numa segunda etapa, segundo o 
professor Marcelo Ferro Costa, 
alcm de ampliar o curso de 
linguagens com o ensino do 
Pascal c Cobol, o colegio vai 
substituir os servigos dos 
bureaux por equipes do proprio 
colcgio, aproveitando, inclusive, 
alguns alunos vindos dos cursos 
dc micro, para fazer trabalhos 
na parte administrativa. Mas a 
medio prazo, o colcgio pretende 
tambem desenvolver software 
cspccffico na area de Educagao, 
montando uma cquipc 
espccialmcntc para esse fim, 
pois “nao cxistc software 
educacional dc boa qualidadc 
disponi'vcl no mercado, sendo 
a maioria deles clcmcntar”. 

ClkCULO VICIOSO 



E lementares ou nao, os 
programas estao 
surgindo. No entanto, 
ha nesta area um 
circulo vicioso que ja corner a 
ser rompido pelas escolas: as 
soft-houses nao descnvolvcm 
programas porque nao ha 
mercado, e nao ha mercado 
porque nao ha' programas. 
Assim, num giro pelas lojas 
especializadas e soft-houses, 



podc-se achar coisas como 
Tutor de Matcmatica, da 
Microsoft, para os TKs 82, 83 e 
85 ; Vocabulario Portugues- 
Ingles, da Micro Kit, para a linha 
Sinclair; Linguagem MLogo, da 
Microarte, para a linha Apple; 
Estatistica I e Matcmatica I, da 
Microsoft, para a linha Sinclair; 
Operates Aritmeticas, da 
Clappy, para o Color 64 ; 
Educational Games americanos, 
de varios fabricantes, para a 
linha Apple; programas de 
Eletronica e gratico de circuitos 
e simulagao de situates 
matematicas, da BMK, para 
qualquer micro com CP/M; 
Editor de Figuras e Contas, da 
Everton Consultoria e Software, 
ja vendido para um jardim dc 
infancia de Niteroi, para o CP- 
500; e o Sinaprc, de Nereide 
Schilaro Santa Rosa e Francisco 
Carlos Santa Rosa, software 
voltado para a pre-escola, mas 
ainda nao adotado por nenhum 
estabelecimento, e a venda em 
lojas de Sao Paulo. 

A realidade da cscola 
brasileira, contudo, ainda 
permanece bem distante dos 
microcomputadorcs. A escola 
publica nem sonha com isso, 
ainda as voltas com problcmas 
basicos como instalagoes 
adequadas e merenda escolar. E 
a cscola particular trava uma 
discussao pedagogica e 
ideologica sobre a importance 
dos microcomputadorcs na 
Educagao. Enquanto isso, a 
Prologica tenta dar um passo a 
frente, oferecendo seus micros a 
precos espeoiais, com o objetivo 
de facilitar as escolas a 
introduzirem nos seus 

P rogramas de ensino a matcTia 
rocessamento dc Dados. E as 
criangas, alucinadas com a febre 
dos videogames, a cada dia sc 
intercssam mais pelos 
microcomputadorcs, 
procurando obter maiores 
conhecimentos em cursos de 
Easic, espccialmcntc ministrados 
para elas, que comcgam a 
mostrar-se bastante populares 
e lucrativos para as lojas, 
cursinhos c mesmo tradicionais 
universidades. 



Tex to: Lucio San for 
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Datalife tern 
resposta para tudo. 




E a Memphis 
responde junta 
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Uma descriqao passo a passo do inicio do funcionamento do Monitor residente 
no CP-500, que o ajudara a entender melhor o software basico desse micro 



A inicializa^ao do 
monitor no CP-500 

Mauricio Baduy 



D esde que adquiri meu CP-500, 
com 48 Kbytes e gravador, fi- 
quei muito interessado no Mo- 
nitor residente do micro. Anteriormen- 
te, fui propnetario de um D-8000 e para 
este micro eu dispunha em minha bi- 
blioteca de dois programas monitoresio 
TBUG, da Radio Shack, e o ZBUG, que 
foi publicado na revista 80 Microcompu - 
ting, em Janeiro de 1981. Este ultimo 
era um monitor extremamente podero- 
so, com varias facilidades, tais como co- 
pias de programas System, breakpoints , 
display em ASCII e hexadecimal etc, 
executando perfeitamente no CP-500. 

Estando sempre envolvido com pro- 
gramas monitores, naturalmente senti- 
me interessado pelo monitor residente 
no CP-500 e passei a estuda-lo. Fazendo 
uso do proprio monitor e do comando 
D (Display), examinei-o completamente. 
Minha piimeira preocupa 93 o era desco- 
brir onde o monitor se carregava na me- 
moria e qual o endere^o inicial de exe- 
cu^Io (o entry point ). Ao examinar o 
endere 90 fin al, ocorreu-me investigar 
tambem o relacionamento do Monitor 
com o Interpretador BASIC, isto d, co- 
mo era mostrado no video o logotipo da 
Prologica e a mensagem BASIC (SouN)?. 

Fazendo uso de um programa disas- 
semblador, obtive uma listagem do Mo- 
nitor e passei a examina-la. Apos uma 
analise detida, acabei por examinar a ro- 
tina de micializa^o do micro, isto e, o 
que acontece quando se liga o computa- 
dor. Isto foi necessario para verificar 



como a rotina de inicializa^o permitia 
a apresenta^ao do logotipo e a pergunta 
miaal. E e justamente o que descobri 
desta micializatjao que pretendo descre- 
ver neste artigo. 

A INICIALIZAQAO 
PASSO A PASSO 

Vamos apresentar entao todas as ins- 
tates executadas pela UCP quando da 
inicializa^o (quando se liga o micro), 
atd que seja apresentado no video o lo- 
gotipo da Prologica e a pergunta inicial 
(*). Na explica^o dos efeitos das ms- 
tru^Oes, estarei me referindo ao livro 
Z80 Assembly Language Programming , 
de Lance Leventhal, da cole^o Osborne/ 
McGraw-Hill. (Veja na figura 1 a lista- 
gem completa das instru^Oes executadas 
durante a inicializa^o). 

Quando voce liga o seu CP-500, o 
contador de programa da UCP (PC) e 
inicializado com 0000, sendo este o en- 
dere 90 da primeira instru 9 fo a ser exe- 
cutada pela UCP. Se voce utilizar o Mo- 
nitor residente de seu micro, voce po- 
dera checar os cddigos hexadecimais das 

* Nota do Autor: Os endere^os referidos 
neste artigo sao v^lidos para as EPROMs ori- 
ginal do CP-500. Como a Proldglca jd proce- 
deu a revisoes, os enderecos,e eventualmente 
algumas instrupoes, podem n3o corresponder 
exatamente ao que se apresenta nesta oportu- 
nidade. Posteriormente, em outros artigos.fa- 
rei coment^rios sobre as novas EPROMs. 



instru 9 $es, que sertfo listados juntamen- 
te com os mnemonicos, na segunda co- 
luna, ap 6 s a coluna de endere 90 S. (Note 
que os endere 90 s est£o em hexadecimal 
(H). Use o Monitor para acompanhar a 
descrto a seguir. 

Assim, a pnmeira instru 9 §o a ser exe- 
cutada, localizada no endere 90 0000 e: 

0000 F3 DI 

Esta instru 9 §o inibe as interrup 9 oes 
que eventualmente podenam ser recebi- 
das pela UCP e que podem ser inibidas. 
O CP-500 possui um Z80 como proces- 
sador central e este possui dois tipos de 
interrupts: as mascaraveis (maskable) 
e as nao-mascaraveis (non-maskable). As 
mascaraveis podem ser inibidas ou lgno- 
radas se assim o desejamos; as nao-mas- 
caraveis nao o podem. 

(As interrup 96 es, para os que nao sa- 
bem, sao recursos t^cmcos muito lmpor- 
tantes, que permitem aos perifericos e 
outros dispositivos requisitarem a aten- 
950 imediata da UCP, na verdade apos 
completada a instru 9 §o que estiver sen- 
do executada.) 

No CP-500, o relogio intemo, o cas- 
sete e a interface RS-232, entre outros, 
emitem mterrup 95 es mascaraveis para a 
UCP. No caso do relogio intemo, um 
sinal de 30 Hz interrompe periodica- 
mente a UCP para que o reldgio seja 
atualizado e controlado e para piscar o 
cursor. Assim, a instru 9 ao DI inibe este 
tipo de interrup 93 o onginada pelos dis- 
positivos perifericos mencionados, po- 



52 



MICRO SISTEMAS. mar<po/84 



0000 F3 DI 

0001 AF XOR A 

0002 C31530 JP 301 5H 

3015 C35534 JP 3455H 

3455 ED56 IM 1 

3457 317D40 LD SP.407DH 

345A D3E4 OUT (E4H),A 

345C F620 OR 20H 

345E D3EC OUT (ECH),A 

3460 3E81 LD A,81H 

3462 D3F4 OUT (F4H),A 

3464 3ED0 LD A.DOH 

3466 D3F0 OUT (F0H),A 

3468 CD2535 CALL 3525H 

346B DBFO IN A,(F0H) 

346D 3 EDO LD A.DOH 

346F D3F0 OUT (F0H),A 

3471 CD2535 CALL 3525H 

3474 DBFO IN A,(FOH) 

3476 3E04 LD A.04H 

3478 D3E0 O'W (EOH).A 

347A 3E0B LD A.OBH 

347C D3F0 OUT (F0H),A 

347E 21AA36 LD HL.36AAH 

3481 110040 LD DE.4000H 

3484 014C00 LD BC.004CH 

3487 EDBO LDIR 

3489 21F936 LD HL.36F9H 

348C 11E541 LD DE.41E5H 

348F 013F00 LD BC.003FH 

3492 EDBO LDIR 

3494 DBF4 IN A,(F4H) 

3496 210030 LD HL.3000H 

3499 110043 LD DE.4300H 

349C 010008 LD BC.0800H 

349F EDBO LDIR 

34A1 C3AA47 JP 47A4H 

47A4 DBF4 IN A,(F4H) 

47A6 CDC901 CALL 01C9H 

47A9 CD8D02 CALL 028DH 

47AC C2CC47 JP NZ.47CCH 

47AF DBFO IN A,(F0H) 

47B1 3C INC A 

47B2 CACC47 JP Z.47CCH 

47CC 3E0D LD A.ODH 

47CE 0606 LD B.06H 

47D0 CD3300 CALL 0033H 

47D3 10FB DJNZ 47D0H 

47D5 112149 LD DE.4921H 

47D8 D5 PUSH DE 

47D9 21523C LD HL.3C52H 

47DC CD3449 CALL 4934H 

47DF 21D23C LD HL.3CD2H 

47E2 DI POP DE 

47E3 CD3449 CALL 4934H 

47E6 21923C LD HL.3C92H 

47E9 112849 LD DE.4928H 

47EC CD3449 CALL 4934H 

47EF 21123D LD HL.3D12H 

47F2 112F49 LD DE.492FH 

47F5 CD3449 CALL 4934H 

47F8 21DB3C LD HL.3CDBH 

47FB 111049 LD DE.4910H 

47FE CD3449 CALL 4934H 

4801 213848 LD HL.4838H 

4804 CD1B02 CALL 021BH 

4807 3E3F LD A.3FH 

4809 322340 LD (4023H),A 

480C CD4900 CALL 0049H 

480F FE53 CP 's' 

4811 CA1C48 JP Z.481CH 

4814 FE4E CP 'n' 

4816 CA2448 JP Z.4824H 

4819 C30C48 JP 480CH 

481C 3EB0 LD A. BOH 

481E 322340 LD (4023H).A 

4821 C3A337 JP 37AEH 

4824 219048 LD HL.4890H 

4827 220442 LD (4204H),HL 

482A 3EB0 LD A .BOH 

482C 322340 LD (4023H),A 

482F C30043 JP 4300H 

4832 21A146 LD HL.48A1H 

4835 C33647 JP 4736H 

4838 OE DEFB OEH 

4839 42 DEFM 'BASIC (S ou N)' 

4847 03 DEFB 03H 

4910 DEFM 'PROLOGICA CP-500 7 

4920 00 DEFB OOH 



Figura 1 - Rotina de inicializagao do CP-500 



dendo as mesmas ser habilitadas seleti- 
vamente quando for necessario. 

0 Z80 reage as interrup 90 es mascara- 
veis de tres modos diferentes: 

1 — No modo 0, £ possivel que o pen- 
fenco ou dispositivo que onginou a m- 
terrup 9 lo coloque um byte na via de da- 
dos da UCP. 

2 — No modo 1, as interrup 9 oes for- 
9 am um reimcio (restart) no endere 90 
38H. 

3 — No modo 2, acessa-se um determi- 
nado endere 90 formado pelo byte for- 
necido pelo dispositivo e pelo byte cor- 
rente do registro I do Z80. 

Estes modos sao selecionados pelas 
instru 96 es IM 0, IM 1 e IM 2 . 

0 outro tipo de interrup 92 o do Z80 
s£o as n£o -mascaraveis. Estas nao po- 
dem ser ignoradas ou inibidas e, quando 
emitidas, for 9 am um reimcio a partir do 
endere 9 o 66H. Quando se aperta o bo- 
t<fo RESET do CP-500, origina-se uma 
interrup 95 o nao-mascardvel. 

0 CP-500 mampula as interrup 9 ( 5 es 
por meio de portas. Por exemplo, a por- 
ta EOH, quando usada como saida,habi- 
lita interrup 90 es mascardveis de vdnos 
dispositivos, dependendo do bit ativo do 
byte emitido pela porta. Veja a figura 2 
para uma rela 9 ao completa. 



BIT 

ATIVO 


TNTERRUPQAO HABILITADA 


0 


Borda de subida da ve- 
locidade de 1500 bauds 


1 


Torda de descida da ve 
locidade de 1500 bauds 


2 


Relogio de tempo real 
interno 


3 


Perifericos Externos 


4,5,6 


Interface RS-232C 


7 


Nao usado 



Figura 2 - Porta EOH - habUitagdo de inter - 
rupfdes mascardveis. 



A porta EOH, quando usada como 
entrada (IN), permite saber quern regis- 
trou a interrup 9 ao, dependendo do bit 
ressetado do byte contido no Acumula- 
dor, mantida a mesma assoc^do bit- 
dispositivo, como se pode observar na 
figura 2 . 

A mstru^o seguinte 6: 

0001 AF XOR A 

A instrut XOR reg implica na exe- 
cucfo de um OU exclusivo do registro 
especificado (reg) com o Acumulador. 
Neste caso, esta sendo realizado um OU 
exclusivo do Acumulador com o proprio 
Acumulador. O objetivo da instru 93 o 
XOR A 6 simplesmente limpar (zerar) 
o Acumulador e com este zeramento 
ajustar os flags do registro F para suas 
conduces normais. 

Com o Acumulador zerado, a proxi- 
ma instru 93 o a ser executada 6 : 

0002 C31530 JP3015H 



A instru 9 io JP 6 um desvio mcondi- 
cional para o endere 90 especificado, de 
modo que a exeo^ao se desvia para o 
endere 90 301 5H, onde encontramos um 
outro desvio incondicional: 

3015 C35534 JP 3455H 

Neste endere 90 , realmente come 9 a a 
rotina de inicializa 95 o. A partir da pro- 
xima instru 95 o, a UCP ira realmente 
ajustar o sistema para uma condi 9 ao pre- 
fixada de parametros, bem como micia- 
lizar determinadas areas da regi^o de co- 
munica 96 es da RAM: 

3455 ED56 IM 1 

Esta instru 9 So coloca a UCP no mo- 
do de interrup 9 ao 1. Assim, a UCP res- 
ponde a uma interrupt mascaravel 
executando um restart no endere 90 

0038H. 

3457 317D40 LD SP, 407DH 

Esta instru 9 ao ajusta a pilha (stack) 
no endere 90 407DH. Isto 6 necessario 
para permitir a utilizat niesma. 

345A D3E4 OUT(E4H),A 

A porta E4H esta associada com as 
interrup 9 < 3 es nao-mascaraveis (NMI). 
Quando usada como saida, permite sele- 
cionar duas op 95 es de ge^ao de mter- 
rup 95 es nao-mascaraveis, dependendo 
do bit ativo do byte emitido pela mes- 
ma. Quando usada como entrada, per- 
mite saber quern onginou a interrup 9 ao. 
Emitindo um byte nulo por esta porta, 
estamos ressetando ou desativando as 
op 9 < 5 es que podem ser ativadas. 

345C F620 OR 20H 

A instru 9 ao OR 20H realiza a opera- 
t booleana OR entre o Acumulador e 
o byte especificado (20H). Como o Acu- 
mulador estava zerado, apos esta instru- 
t 0 Acumulador contera 20H (ou 
00100000 em binano). 

345E D3EC OUT(ECH),A 

A porta ECH controla o motor do 
cassete, o tamanho dos caracteres no vi- 
deo e a sele 9 ao dos caracteres especiais 
ou Katakana. Com esta operate 0 s ^ s “ 
tema desliga o motor do cassete, selecio- 
na 64 caracteres por linha e especifica os 
caracteres especiais ao inv£s do alfabeto 
Katakana, que 6 a condi 9 ^o padrao do 
micro. 

3460 3E81 LD A,81H 

3462 D3F4 OUT (F4H) A 

A porta F4H e a porta de controle do 
FDC, que e o controlador dos discos. 
Atravds do byte emitido por esta porta, 
pode-se selecionar um drive , um lado do 
disquete, dupla/simples densidade etc. 
Carregando o Acumulador com 81 H (ou 
10000001 em binano), seleciona-se o 
drive 0, dupla densidade e lado 0. Ao 
emitir o byte 81 H, o led do drive 0 
acende e o motor do mesmo e energiza- 
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7312 110074 LD DE,7400H 

7315 OlOFOO LD BC.000FH 

7318 EDBO LDIR 



do por 2,5 segundos aproximadamente, 
caso o sistema possua discos. Se nao hi 
discos, nada acontecerd. 

3464 3ED0 LD AJDOH 
3466 D3F0 OUT(FOH),A 

Associada com a emissSo de coman- 
dos ao controlador de discos, a porta 
FOH funcionano modoentrada (INPUT) 
como registro de estado (status) e na 
saida, como registro de comandos para 
o FDC. Emitindo o byte DOH por esta 
porta, o que corresponde a 11100000 
em binario, resseta-se (inicializa-se) o 
controlador de discos (FDC). 

3468 CD2535 CALL 3525H 

Esta sub-rotina produz um atraso, pa- 
ra permitir ao controlador tempo para 
que ele reaja ao comando emitido. O 
c6digo desta sub-rotina 6 o seguinte: 

3525 C5 PUSH BC 

3526 Cl POP BC 

3527 00 NOP 

3528 C9 RET 

Em seguida, 4 executada a seguinte 
instru^So: 

346B DBF0 IN A, (FOH) 

permitindo ao sistema o recebimento 
do estado informado pelo FDC em res- 
posta ao comando emitido anteriormen- 
te. Como n5o hi nenhuma decisSo a se- 
guir, parece-me um pouco fora de pro- 
p6sito tal grupo de instates, que 6 re- 
petido novamente, como podemos ver 
abaixo: 

346D 3 EDO LD A,D0H 
346F D3F0 OUT (FOH) ^ 

3471 CD2535 CALL 3525H 

3474 DBF0 IN A,(F0H) 

Em seguida, temos as seguintes ins- 
truces: 

3476 3E04 LD A,04H 

3478 D3E0 OUT (E0H) A 

Como visto, a porta E0H 6 usada 
como latch das interrupts mascardveis 
e ao emitir o byte 04H, que corresponde 
em bindrio a 00000100 (portanto, com 
o bit 2 ativo) habilitam-se as interrup- 
ts do rel6gio de tempo real (veja a fi- 
gura 2). 

347A 3E0B LD A,0BH 

347C D3F0 OUT (FOH) A 

Estas instrut s referem-se i porta 
FOH, ligada ao controlador de discos e 
usada na saida para enviar comandos ao 
FDC. O byte OBH, que corresponde ao 
bindrio 00001011, representa o coman- 
do RESTORE, que posiciona a cabe^a 

de gravat/leitura na t f dh a Os bits 

0 e 1 iguais a 1 (ativos) determinam que 
o tempo de acesso inter-trilhas seja de 
40 ms. 

As instruts a seguir, dois blocos de 
movimentat de memriria, utilizando a 
poderosa instru^o LDIR do Z80,trans- 



ferem para a RAM os bytes que iniciali- 
zam os vetores das instruts RST e os 
blocos de controle de perifdricos (DCB, 
Device Control Block), e specif! came nte 
os seguintes: teclado, video e impresso- 
ra. No segundo bloco de instru^es, ^ 
inicializada outra importante drea da 
RAM, correspondente aos DCBs da in- 
terface RS-232C (entrada, saida e inicia- 
lizatO e 30 DCB do direcionador 
(ROUTER) de E/S: 



347E 


21AA36 


LD HL36AAH 


3481 


110040 


LD DE.4000H 


3484 


014C00 


LD BC,004CH 


3487 


EDBO 


LDIR 


3489 


21F936 


LD HL36F9H 


348C 


11E541 


LD DE.41E5H 


348F 


013F00 


LD BC.003FH 


3492 


EDBO 


LDIR 


O prriximo grupo 


de instrufdes in- 


tngou-me durante varias semanas: 


3494 


DBF4 


IN A,(F4H) 


3496 


210030 


LD HL^OOOH 


3499 


110043 


LD DE.4300H 


349C 


010008 


LD BC.0800H 


349F 


EDBO 


LDIR 



A porta F4H normalmente s6 6 usada 
para saida e neste grupo de instrut s 
ela executa uma fun^o que nao lhe 6 
peculiar, o que ja 6 estranho. Mas o fato 
4 que antes da execut deste grupo de 
instrut s » uni exame dos endere^s 
4300H e seguintes ndo revelava o Mo- 
nitor. Apds uma execu^o do grupo. Id 
estava o Monitor! 

Examinando a regido em que se exe- 
cuta a instrut LDIR (3000H e seguin- 
tes) de onde o Monitor originou-se, os 
valores encontrados eram completamen- 
te diferentes dos do Monitor! Tentar in- 
terromper a execut do grupo ap6s a 
instrut IN A/F0H) e antes da prrixi- 
ma instrut » ressetava o microcompu- 
tador. 

Diante de tais fatos, fiquei inicial- 
mente um pouco confuso, mas acabei 
por resolver o mistdrio. 

O CHAVEAMENTO DA EPROM 

A instrut ^ A, (FOH) d responsd- 
vel por um chaveamento de uma das 
EPROMs, que numa situat exibe o 
Monitor e noutra uma parte do Inter- 
pretador BASIC normal. Voce pode ve- 
rificar isto em seu micro, utilizando o 
pr6prio Monitor residente. Entre no mo- 
do Monitor e, utilizando o comando S, 
introduza os seguintes cridigos a partir 
do endere 90 7300H: 



7300 


DBF4 


IN A,(F4H) 


7302 


210030 


LD HL3000H 


7305 


110073 


LD DE.7300H 


7308 


OlOFOO 


LD BC,000FH 


730A 


EDBO 


LDIR 


730C 


DBF4 


IN A,(F4H) 


730E 


210030 


LD HL3000H 



Entre com os c6digos relaaonados na 
segunda coluna e, ap6s entrar com o ul- 
timo codigo, tecle ENTER para retomar 
ao modo de comando do Monitor. Em 
seguida, execute o programa acima com 
o seguinte comando: 



*731 A* 

Entdo, fazendo uso do comando 
DISPLAY (D) do Monitor, vamos veri- 
ficar o conteudo dos oito endere^os que 
se seguem a 7300 e 7400: 



C35E32C39B32C374... 

Novamente, tecle o seguinte coman- 
do: 

D 4300,8 (ENTER) 

Para exibir as primeiras instruts do 
Monitor: 

22DF54210000ED73... 

Note que devido ao chaveamento ini- 
cial, carregaram-se os primeiros oito by- 
tes do programa Monitor no endere 90 
7300. Chaveando novamente, isto 4, re- 
tomando a condit inicial, carrega-se 
parte do Interpretador no endere 90 
7400H. Compare os resultados do co- 
mando D 4300,8 com os do D 7300,8, 
que acabamos de mostrar. 

Dissemos ainda, que se tentarmos in- 
terromper a execu 92 o depois de chavea- 
da a EPROM para carregar o Monitor, o 
sistema entraria em loop infinito, haven- 
do necessidade de ressetar-se o computa- 
dor. Voce pode verificar isto da seguin- 
te forma: entre com o seguinte comando 
e veja o que acontece: 

J 7300,7302 (ENTER) 

Este comando coloca um breakpoint 
em 7302, logo apos executar a instru 9 §o 
IN A,(F4H) e antes de executar a pro- 
xima instru 9 §o. 

Carregado o Monitor, a execu^o 
prossegue a partir do endere 90 47 A4, 
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J 7300,731 A (ENTER) 

Com este comando do Monitor, ini- 
cia-se a execu 9 ao no endere 90 7300 e 
interrompe-se a execu 9 ao no endere 90 
731 A, pois neste endere 90 foi coloca- 
do um breakpoint (veja adiante). Ao 
encontrar o breakpoint , o Monitor mos- 
tra no video o endere 90 731 A envolvi- 
do por asteriscos: 



D 7300,8 (ENTER) 

E observaremos no video os seguintes : 

22DF542 1 0000ED7 3 ... 

Entre agora com o comando : 

D 7400,8 (ENTER) 

E teremos no video: 



pois a instru^o seguinte assim o de ter- 
minal 

34A1 C3A447 JP47A4H 

Note que os c6digos rec^m-carrega- 
dos tambdm contem parte da rotina de 
inicializa^o, bem como o Monitor resi- 
dente. Continuando, temos: 

47 A4 DBF4 IN A,(F4H) 

Com esta instru 9 lo, chaveia-se a 
EPROM para a situa^o normal, jd que 
o chaveamento anterior a tinha coloca- 
do no modo especial. 

47 A6 CDC901 CALL01C9H 

47 A9 CD8D02 CALL 028DH 

47 AC C2CC47 JP NZ,47CCH 



repetida seis vezes por for 9 a da instru- 
9 ^o DJNZ 47D0H. Ela decrementa o 
registro B e enquanto o seu conteudo 
ndo for zero, hi um desvio para 47D0H. 
Note que o conteudo do Acumulador 6 
o valor ASCII 0DH, ou 13 em decimal, 
que 6 o retomo do carro (CR). 

Continuando: 



47D5 112149 

47D8 D5 
47D9 21523C 

47DC CD3449 



LD DE,4921H 
PUSH DE 
LD HL 3C52H 
CALL 4934H 



O endere 90 4921H contdm o valor 
ASCn dos simbolos grdficos da parte su- 
perior do logotipo. Se voce usar o co- 
mando D do Monitor da seguinte forma: 



A sub-rotina 01C9H 6 documentada 
no manual como SVDCLS (pig . 51) e 
tern como fun^o limpar a tela. A sub- 
rotina 028DH 6 documentada como 
SKBBRK e tern como objetivo verificar 
se a tecla BREAK estd pressionada. 

O prop6sito deste teste 4 o seguinte: 
se o sistema possui discos, a tendenda 6 
carregar o DOS 500 quando se resseta o 
micro ou quando o mesmo 6 ligado. En- 
t£o, se ao ligarmos uma configura 9 ao 
com discos pressionarmos a tecla 
BREAK, isto serd detectado pelas ins- 
tru 90 es localizadas em 47A9H e 47ACH 
e a execu93o serd desviada para o ende- 
re 90 47CCH, onde haverd a continua^o 
da inicializa^o tipica de um sistema 
sem discos. 

Se a tecla BREAK nao for pressiona- 
da, a execu^o prossegue com: 

47AF DBF0 IN A, (FOH) 

47B1 3C INCA 

47B2 CACC47 JP Z,47CCH 

A instru^o IN A/F0H) retoma o va- 
lor 80H ou 00H se houver discos no sis- 
tema e FFH caso nao haja. Incremen- 
tando o Acumulador, teriamos 81 H, 
01 H e 00H respectivamente. 

N§o existindo discos no sistema, a 
instru 9 ao JP Z,47CCH desvia a execu^ao 
para 47CCH, j i que o flag Z foi setado 
(Z=l) em fun 9 ao do resultado nulo da 
opera9ao INC A. 

Noutra oportunidade examinaremos 
a situa 9 ao com discos no sistema. Consi- 
deremos agora a inicializa 9 ao a partir do 
endere^o 47CCH, que 6 a dos sistemas 
sem discos, ou com discos e a tecla 
BREAK pressionada. 

47CC 3E0D LD A,0DH 

47CE *0606 LD B,06H 

47D0 CD3300 CALL 0033H 

47D3 10FB DJNZ47D0H 

Este grupo de instates move o cur- 

sor para a sexta linha, preparando a tela 
para a apresenta^o do logotipo da Pro- 
lbgica. A sub-rotina 0033H, documen- 
tada como SVDCHAR no manual do 
CP-500, mostra no video o cardter con- 
tido no Acumulador. Esta opera 9 ao e 



D 4921,7 (ENTER) 
ser£o mostrados no video: 

4921 8F85 8F85 8F85 00 

O endere 90 492 1H 4 armazenado na 
pilha (PUSH DE) porque os simbolos 
contidos ali ser£o novamente utilizados. 
3C52H 4 um endere 9 o do video (lem- 
bre-se de que o video 4 mapeado na 
memriria), onde os simbolos serilo visua- 
lizados. 

Uma vez inicializados os pares DE 
e HL, uma sub-rotina localizada em 
4934H 4 chamada para exibir os sim- 
bolos no video. O cridigo desta sub-roti- 
na 4 o seguinte: 



4934 


1A 


LD A,(DE) 


4935 


B7 


ORA 


4936 


C8 


RETZ 


4937 


77 


LD (HL)^ 


4938 


23 


INC HL 


4939 


13 


INC DE 


493A 


C33449 


JP 4934H 



O funcionamento 4 assim: inicial- 
mente o conteudo do endere 90 conti- 
do no par DE 4 transferido para o Acu- 
mulador. A instru^o OR A setard o 
flag Z (Z=l) do registro F se o conteudo 
do Acumulador for zero; se Z=l, retor- 
na-se da sub-rotina. Desta maneira, sina- 
liza-se o fim dos blocos grdficos com um 
byte OOH (veja que ele existe no con- 
junto de valores contidos a partir do en- 
dere 90 4921H). Se o valor contido no 
Acumulador nSo for zero, transfere-se o 
conteudo do Acumulador para a posi^o 
indicada pelo par HL, que, como vimos, 
corresponde a uma posi^o no video. 
Incrementa-se DE e HL (novo simbolo e 
nova posi^o no video) e re pete -se o 

tido. 

47DF 21D23C LD HL, 3CD2H 

47E2 D1 POP DE 

47E3 CD3449 CALL 4934H 

Este grupo de instru^es repete o pri- 
meiro grupo de simbolos do logotipo 
em outra posi^o do video. A instru^o 
POP DE recupera o valor 4921H (que 
havia sido alterado pelas sucessivas ins- 
tru95es INC DE), habilitando a reapre- 



senta 92 o dos simbolos uma linha abaixo 
dos simbolos anteriores. Em seguida, 
temos: 

47E6 21923C LDHL,3C29H 

47E9 112849 LDDE,4928H 

47EC CD3449 CALL 4934H 

O endere 90 4928H contdm os valo- 
res ASCH da linha de simbolos que for- 
ma o nariz do logotipo. Use o Monitor 
para exibi-los no video, atrav^s do se- 
guinte comando : 

D 4928,7 (ENTER) 

4928 8F85 2020 8F8D 00 

O pr6ximo grupo de instru 90 es apre- 
senta a ultima linha do logotipo, o pes- 
C 090 : 

47EF 21123D LDHL3D12H 

47F2 112F49 LD DE,492FH 

47F5 CD3449 CALL 4934H 

Use o comando D do Monitor para 
visualizar os valores ASCII dos ultimos 
simbolos: 

D 492F,5 (ENTER) 

492F 8F85 8F85 00 

Agora, com as instru^es abaixo, 4 
apresentada a mensagem PROLOGICA 
CP-500, localizada no endere 90 491 OH: 

47F8 21DB3C LD HL3CDBH 

47 FB 111049 LD DE,4910H 

47FE CD3449 CALL 4934H 

Continuando, teremos: 

4801 213848 LD HL,4838H 

4804 CD1B02 CALL 021BH 

A sub-rotina 021BH, documentada 
como SVDLINE, 4 utilizada para apre- 
sentar a mensagem BASIC (S ou N). 

Ela esta localizada no endere 90 4838H 
e 4 precedida por 0EH (que liga o cursor 
na tela) e terminada por 03H, necessdria 
i sub-rotina SVDLINE (veja pag. 51 do 
Manual). Note tambdm que esta sub- 
rotina usa a posi^o do cursor armazena- 
da pelo sistema e esta posi 92 o ]i foi ajus- 
tada pelas instru^es dos endere 90 s 
47CCH a 47D3H. 

Antes de continuarmos o processo 
de inicializa^o, vamos usar o Monitor 
para executar a parte da inicializa^o 
que apresenta o logotipo e a mensagem 
BASIC (S ou N). Primeiramente, vamos 
criar um meio de limpar a tela quando 
no Monitor. Com o comando S, modifi- 
que o conteudo do endere 90 7500H e 
seguintes, para conter as duas instru^es 
abaixo: 

7500 CDC901 CALL01C9H 

7503 CE431F JP431FH 

A sub-rotina 01C9H (SVDCLS) apa- 
ga a tela e em seguida retoma ao nivel 
de comando do Monitor (o endere 90 
431FH 4 um ponto de reentrada conve- 
niente, ji que se reentrarmos por 4300H 
haverd o display da mensagem MONI- w 
TOR VERSAO 1.0 1982, que nSo nos SA 
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interessa no momento). Tecle J 7500 
(ENTER) e o cursor estarri localizado no 
canto superior esquerdo da tela. Em se- 
guida, tecle o seguinte comando: 

J47CC (ENTER) 

E o logotipo e a pergunta inicial apa- 
recem na tela! 

Continuemos, agora, a interpretar o 
restante do processo de micializa^ao: 

4807 3E3F LD A,3FH 

4809 322340 LD (4023H),A 

0 valor 3FH corresponde ao codigo 
ASCII do simbolo ?. O endere^o 4023H 
pertence ao DCB do video. Ele define 
o carriter que serri utilizado como cursor 
(veja pag. 54 do Manual). Assim, apos 
estas duas instates, o carriter ? passa a 
ser utilizado como cursor. 

480C CD4900 CALL 0049H 

A sub-rotina 0049H (SKBWAIT, 
pag. 45 do Manual) realiza uma varredu- 
ra no teclado e retoma somente quando 
uma tecla for pressionada, com o valor 
hexadecimal ASCII da tecla apertada no 
Acumulador. 



480F FE53 CP 

4811 CA1C48 JP Z,481CH 

4814 FE4E CP ‘N’ 

4816 CA2448 JP Z,4824H 

4819 C30C48 JP 480CH 



O grupo de mstru^oes acima proces- 
sa a resposta do usuario a pergunta 
BASIC (S ou N). Se a resposta for S, 
ha um desvio para o endere90 481CH; 
se for N, o desvio e para 4824H. Se a 
resposta for diferente dessas duas, rea- 
liza-se nova varredura do teclado at£ que 
o usuario tecle uma das letras permiti- 
das. 

Como estamos interessados no Moni- 
tor, vejamos o que acontece quando res- 
pondents N: 

4824 219048 LD HL,4890H 

4827 220442 LD (4204H),HL 

Estas duas instances inicializam o 
vetor da tecla BREAK (ver prig. 54 do 
Manual). Assim, quando a tecla BREAK 
for pressionada, haverri um desvio para o 
endere^o 4890H. Nele, temos asseguin- 
tes instates: 



4890 

4893 

4894 
4897 



210043 LD HL,4300H 

E5 PUSH HL 

CDF801 CALL01F8H 

C34C46 JP 464CH 
# 



E em 464CH encontraremos o se- 



guinte: 



464C 3E0E LD A,0EH 

464E CDBD46 CALL 46BDH 

4651 3E0D LD A,0DH 

4653 CDBD46 CALL 46BDH 

4656 C9 RET 



Como voce deve se lembrar, a tecla 
BREAK e ativa no Monitor durante o 



comando de carga de programas da fita. 

Se desejarmos abortar o comando 
de carga, nao basta interrompe-lo: £ 
preciso desligar tambdm o gravador. A 
rotina 01F8H contdm esta fun9rio (na 
prig. 43 do Manual, ela estri documenta- 
da como SCSOFF). 

Como se retoma ao nivel de coman- 
do do Monitor? Simples, carregando-se 
o par HL com 4300H - que, como ve re- 
nts, 6 o entry-point (inicio de execu- 
9ao) do Monitor — e colocando este va- 
lor na pilha (PUSH HL), ao executarmos 
uma instru^rio RET, o valor contido na 
pilha d colocado no PC (program coun- 
ter , contador de programa) e efetiva- 
mente a execu^o reinicia-se em: 

4300H 
LD A,0EH 
CALL 46BDH 
LD A,0DH 
CALL46BDH 

Este grupo faz simplesmente com 
que o cursor esteja ativo na tela e pro- 
voca uma mudan^a de linha (retomo de 
carro. 0DH). A sub-rotina 46BDH, mui- 
to empregada no Monitor, pode ser vis- 
ta na figura 3. Ela utiliza a chamada 



46BD 


F5 


PUSH AF 


46BE 


C5 


PUSH BC 


46BF 


D5 


PUSH DE 


46C0 


E5 


PUSH HL 


46C1 


CD3300 


CALL 0033H 


46C4 


El 


POP HL 


46C5 


D1 


POP DE 


46C6 


Cl 


POP BC 


46C7 


FI 


POP AF 


46C8 


C9 


RET 



Figura 3 - Enderegos dos registros da pilha 
operacional. 



0033H (SVDCHAR) para mostrar no 
video o conteudo do Acumulador. Co- 
mo esta sub-rotina usa vrinos registrado- 
res, eles s£o armazenados na pilha (PUSFD 
para serem recuperados depois (POP), 
ap6s o uso da SVDCHAR. 

Prosseguindo com a inicializa^o, te- 
mos: 

482A 3EB0 LD AJB0H 

482C 322340 LD(4023H),A 

412F C30043 JP4300H 

Novamente o carriter usado como 
cursor 6 modificado, desta vez para o 
simbolo grrifico representado pelo valor 
ASCII hexadecimal BOH (um bloco grri- 
fico; ver prig. 157, valor decimal 176). 
Em seguida, desvia-se a execu^rio para o 
endere^o 4300H, iniciando efetivamente 
a execu^So do programa Monitor. 



A INICIALIZA^AO DO MONITOR 

Como vimos em artigo anterior (ver 
Programas Monitorcs , MS numero 25), 
um monitor precisa de uma rirea de ar- 
mazenamento para os valores dos regis- 
tros do usuririo. Relativamente ao Mo- 
nitor Residente do CP-500, este arma- 
zenamento e feito por meio da pilha 
operacional (stack). Os endere^os estrio 
na figura 4. 



Enderego 


Registros 


54DF-54E0 


HL 


54E2-54E3 


AF 


54E4-54E5 


BC 


54E6-54E7 


DE 


54E8-54E9 


AF* 


54EA-54EB 


BC* 


5 4 EC- 5 4 ED 


DE* 


54EE-54EF *> 


HL' 


54F0-54F 1 


IX 


54F2-54F3 


IY 


54F4-54F5 


PC 


54F6-54F7 


SP 


54E1 


I 



Figura 4 - Sub-rotina 46BDH 



Vejamos agora a micializa^o do Mo- 
nitor (a listagem completa estri na figu- 
ra 5): 



4300 


22DF54 


LD ( 54DFH ) ,HL 


4303 


210000 


LD HL.OOOOH 


4306 


ED73F654 


LD ( 54F6H ) , SP 


430A 


31D854 


LD SP.54D8H 


430D 


CDC946 


CALL 46C9H 


4310 


210043 


LD HL.4300H 


4313 


22D854 


LD ( 54D8H )HL 


4316 


CD4C46 


CALL 464CH 


4319 


21F548 


LD HL.48F5H 


431C 


CD4946 


CALL 4649H 


431F 


211F43 


LD HL , 431 FH 


4322 


E5 


PUSH HL 


4323 


3E3E 


LD A.3EH 


4325 


CDBD46 


CALL 46BDH 


4328 


CDB446 


CALL 46B4H 


432B 


FE44 


CP 'd' 


432D 


CA8643 


JP Z.4386H 


4330 


FE47 


CP 'G # 


4332 


CA3B44 


JP Z.443BH 


4335 


FE4A 


CP 'J' 


4337 


CAF143 


JP Z.43F1H 


433A 


FES 2 


CP 'r' 


433C 


CA4B44 


JP Z.444BH 


433F 


FE53 


CP 's' 


4341 


CA9745 


JP Z.4597H 


4344 


FE43 


CP 'c' 


4346 


CA2D47 


JP Z.472DH 


4349 


FE54 


CP 't' 


434B 


CAFA46 


JP Z.46FAH 


434E 


CD4C46 


CALL 464CH 


4351 


3E3F 


LD A.3FH 


4353 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 



Figura 5 - Inicializaqdo do Monitor 



4300 22DF54 LD (54DFH),HL 

4303 210000 LD HL.0000H 

4306 ED73F654 LD(54F6H), SP 

430A 31D854 LD SP,54D8H 

43 0D CDC946 CALL 4669H 

Inicialmente, armazena-se o valor 
contido no par de registros HL nos en- 
dere^os 54DF/54E0H para futura utili- 
za^ao. Em seguida, zera-se o par HL e 
armazena-se o valor atual do ponteiro 
da pilha operacional (Stack Pointer) 
nos endere^s 54F6/54F7H (veja na ta- 
bela de endere9*os da figura 4 que estes 
endere90s correspondem, na rirea de ar- 
mazenamento do usuririo, ao registro 
SP). Entao, ajusta-se o ponteiro da pi- 
lha para o endere9o54D8H, que £ a pi- 
lha operacional do Monitor. A sub-roti- 
na 46C9H, chamada logo em seguida, 



46C9 


31F654 


LD SP , 54F6H 


46CC 


E5 


PUSH HL 


46CD 


FDE5 


PUSH IY 


46CF 


DDE5 


PUSH IX 


46D1 


D9 


EXX 


46D2 


E5 


PUSH HL 


46D3 


D5 


PUSH DE 


46D4 


C5 


PUSH BC 


46D5 


08 


EX AF.AF' 


46D6 


F5 


PUSH AF 


46D7 


D9 


EXX 


46D8 


08 


EX AF.AF' 


46D9 


D5 


PUSH DE 


46DA 


C5 


PUSH BC 


46DB 


F5 


PUSH AF 


46DC 


ED57 


LD A, I 


46DE 


32E154 


LD ( 54E1H ) , A 


46E1 


97 


SUB A 


46E2 


08 


EX AF.AF' 


46E3 


31D654 


LD SP.54D6H 


46E6 


C9 


RET 



Figura 6 - Sub-rotina 46C9H. 



pode ser vista na figura 6. A fun9ao bri- 
sica desta sub-rotina 6 o armazenamento 
dos conteudos dos registros na rirea de 
armazenamento do usuririo. Isto e feito 
por meio das instru9<5es PUSH, que per- 
mitem o armazenamento na pilha. (No- 
tem que a pilha e ajustada para 54F6H, 
que e o topo da rirea de armazenamento 
do usuririo. Lembre-se de que a cada 
PUSH a pilha desce.) Como o Z80 pos- 
sui dois grupos de registros, as mstru- 
9(5es EXX e EX AF,AF’ permitem que 
ambos sejam preservados na rirea de ar- 
mazenamento. O registro de interrup- 
9(5es do Z80 tambem e armazenado. 

A instru9ao SUB A (no final da sub- 
rotina 46C9H), simplesmente zera o 
Acumulador, jri que o subtrai de si mes- 
mo. Antes de retomar, a pilha operacio- 
nal 6 novamente ajustada, desta vez para 
54D6H, para que seja recuperado o en- 
dere90 de retomo. Voce certamente sa- 
be que quando se realiza uma sub-roti- 
na, o endere90 de retorno 6 automatica- 
mente armazenado na pilha, de modo 



que quando a instru9ao RET for execu- 
tada (colocando, como sabemos, o valor 
imediato da pilha no contador de pro- 
grama, PC) a execu9ao possa continuar 
sem problemas. 

Note que temos duas pilhas operacio- 
nais: a do usuririo (54F6H), onde sao 
armazenados os valores dos registros 
pertinentes ao mesmo, e a do Monitor 
(54D8H), necessriria para seu perfeito 
funcionamento. 

Continuando, teremos: 



4310 


210043 


LD HL.4300H 


4313 


22D854 


LD (54D8H)J1L 


4316 


CD4C46 


CALL 464CH 


4319 


21F548 


LD HL,48F5H 


431C 


CD4946 


CALL 4649H 


48F5 


OD 


DEFB ODH 


48F6 


4D 


DEFM MONITOR 
VERSAO 1.0 1982’ 


490E 


OD 


DEFB ODH 


490F 


00 


DEFB 00H 



Neste grupo de instru90es armazena- 
se o valor 4300H nos endere90s 54D8/ 
54D9H, para postenor utiliza9ao. A sub- 
rotina 464CH apenas ativa o cursor (veja 
o efeito de valor OEH na prig. 159 do 
Manual) e for9a uma mudan9a de linha. 
Veja a figura 7 para uma listagem desta 



464C 


3EOE 


LD A, OEH 


464E 


CDBD46 


CALL 46BDH 


4651 


3E0D 


LD A, ODH 


4653 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 



Figura 7 - Sub-rotina 464CH. 



sub-rotina. Em seguida, carrega-se o par 
HL com o endere90 da mensagem MO- 
NITOR VERSAO 1 .0 1982 e chama-se a 
sub-rotina 4649H para exibi-la no video. 
(Note que o byte 00H mdica o fim da 
mensagem para esta sub-rotina.) Esta 
sub-rotina chama a de endere90 4657H, 
que por sua vez chama a 46BDH (listada 
na figura 3). Todas sao muito simples de 
ser entendidas. (Veja na figura 8 as lista- 
gens correspondentes.) 



4649 


CD5746 


CALL 4657H 


464C 


3E0E 


LD A. OEH 


464E 


CDBD46 


CALL 46BDH 


4651 


3E0D 


LD A. ODH 


4653 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 


4657 


7E 


LD A, (HL) 


4658 


A7 


AND A 


4659 


C8 


RET Z 


465A 


CDBD46 


CALL 46BDH 


465D 


23 


INC HL 


46 5E 


C35746 


JP 4657H 



Figura 8 - Sub-rotinas 4649H e 465 7H 



As proximas instates srio as seguin- 
tes: 



431F 211F43 LD HL,431FH 

4322 E5 PUSH HL 

4323 3E3E LD A,3EH 

4325 CDBD46 CALL 46BDH 

4328 CDB446 CALL 46B4H 

O endere90 431FH e o ponto de re- 
entrada no loop de comandos. Este va- 
lor e colocado na pilha para que o retor- 
no a este ponto de reentrada possa ser 
feito com uma simples instru92o RET, 
como veremos adiante. Carregando o 
Acumulador com 3EH, que nada mais e 
que o simbolo > , e chamando a sub- 
rotina 46BDH, exibimos no video o si- 
nal que indica o estado Monitor Ativo, 
isto e, que o Monitor estri pronto a re- 
ceber comandos. E a sub-rotina 46B4H 
e a encarregada de aguardar o comando 
do usuario. (Veja na figura 9 a listagem 
desta sub-rotina.) Ela utiliza as sub-roti- 



46B4 


E5 


PUSH. HL 


46B5 


D5 


PUSH DE 


46B6 


C5 


PUSH BC 


46B7 


CD4900 


CALL 0049H 


46BA 


Cl 


POP BC 


46BB 


D1 


POP DE 


46BC 


El 


POP HL 


46BD 


F5 


PUSH AF 


46BE 


C5 


PUSH BC 


46BF 


D5 


PUSH DE 


46C0 


E5 


PUSH HL 


46C1 


CD3300 


CALL 0033H 


46C4 


El 


POP HL 


46C5 


D1 


POP DE 


46C6 


Cl 


POP BC 


46C7 


FI 


POP AF 


46C8 


C9 


RET 



Figura 9 - Sub-rotina 46B4H. 



nas SKBWAIT e SVDCHAR para aguar- 
dar um carriter do teclado e exibi-lo no 
video. 

Obtida a entrada do usuario (um dos 
comandos disponiveis do Monitor) as 
instru9<5es a seguir - um grupo de ins- 
tates compare /desvie — processam a 
entrada do usuririo: 



432B 


FE44 


CP T>’ 


43 2D 


CA8643 


JP Z,4386H 


4330 


FE47 


CP *G’ 


4332 


CA3B44 


JP Z,443BH 


4335 


FE4A 


CPT 


4337 


CAF143 


JP Z,43F1H 


433A 


FE52 


CP IT 


433C 


CA4B44 


JP Z,444BH 


433F 


FE53 


CP ‘S’ 


4341 


CA9745 


JP Z,4597H 


4344 


FE43 


cpt:’ 


4346 


CA2D47 


JP Z,472DH 


4349 


FE54 


CPT’ 


434B 


CAFA46 


JP Z,46FAH 


434E 


CD4C46 


CALL 464CH 


4351 


3E3F 


LD A,3FH 


4353 


CDBD46 


CALL 46BDH 


4356 


C9 


RET 
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A INICI ALIZAQAO DO MONITOR NO CP-500 



A identifica9£o do comando teclado 
pelo usuario e muito simples. Se a com- 
para^o e verdadeira, o flag Z e setado 
(Z=l) e ha desvio para o endere90 cor- 
respondente. Sumarizando, temos: 

Comando Endere90 de Execu^o 
D 4386H 

G 443BH 

J 43F1H 

R 444BH 

S 4597H 

C 472DH 

T 46FAH 

Se o comando solicitado pelo usuario 
nao d nenhum dos comandos do Moni- 
tor, chama-se a sub-rotina 464CH para 
mudar de linha e carrega-se o Acumula- 
dor com o simbolo ? (hexadecimal 3F), 
que em seguida e exibido no video pela 
sub-rotina 46BDH, indicando que o 
Monitor n£o entendeu o comando. Com 
a instru92o RET, retoma-se ao loop de 
comando, em 431FH. 

comentAriosfinais 

A rotina de inicializa9ao mostrada na 
Figura 1 e comentada no texto e aquela 
realmente executada pela UCP durante 
o processo. Se voce usar um programa 
disassemblador a partir do endere90 



3494H, obtera as seguintes instru95es, 
entre outras: 

3494 DBF4 IN A,(F4H) 

3496 00 NOP 

3497 CD8D02 CALL 028DH 

Compare com os mesmos enderc90s 
na figura 1 e voce notara que sao dife- 
rentes. Se examinar a partir do endere90 
4796H, encontrara: 

4796 210030 LD HL,3000H 

4799 1 1 0043 LD DE,4300H 

479C 010008 LD BC,0800H 

479F EDB0 LDIR 

E outras instru9oes que n2o interes- 
sam no momento. A explica92o £ a se- 
gumte: quando a instru9ao IN A,(F4H) 
e executada, chaveia-se a EPROM cor- 
respondente a parte da memoria ROM 
compreendida entre os endere90s 
3000H e 37FFH, e um novo conjunto 
de instru90es fica disponivel nestes en- 
dere90s. 

Note que as instru9oes localizadas a 
partir do endere90 4796H estavam lo- 
calizadas a partir do endere90 3496H da 
parte chaveada da EPROM. Por£m, co- 
mo foram carregadas a partir do endere- 
90 4300H, elas agora se localizam a par- 
tir do endere90 4796H (a diferen9a e 
1300H). 



O fato mais importante £ que apos o 
chaveamento s2o executadas as instru- 
9^es localizadas entre 3496H e 34A1H 
e nestes endere90s estffo os conteudos 
ori undos da parte chaveada da EPROM, 
que diferem do conteudo da parte nor- 
mal da EPROM e que carregam o con- 
teudo da parte chaveada a partir do en- 
dere90 4300H, onde encontramos o Mo- 
nitor e parte da rotina de inicializa^o. 

Desta forma, procuramos mostrar no 
desenrolar deste longo artigOj e de uma 
maneira bem simples, todo o processo 
de imcializa9ao do CP-500, at 6 que o 
Monitor esteja no modo ativo. 

Antecipo minhas escusas por qual- 
quer imprecis2o t^cnica que tenha sido 
cometida em fun9ao da simplicidade 
com que foram abordados varios t6pi- 
cos. Quaisquer comentarios serio bem 
recebidos e podem ser enviados para a 
Caixa Postal 7 — CEP 38300, Ituiuta- 
ba, MG. g 

Mauricio Baduy & engenheiro tletr&nico 
form ado pela Escola Politdcnica da USP, em 
1976. £ professor de IntrodugSo 3 Computa- 
p§o na Facu/dade de Engenharia de Ituiuta - 
ba, MG, a!6m de ocupar o cargo de sdcio-ge- 
rente da firma mineira Sigma — Sistemas e 
Co mpu tad ores Ltda. 



CONTABILIDADE 



QUE TAL TER 0 BALANCETE DE SUA EMPRESA 
EM MEMOS DE UMA H0RA? 



A Nasajon Sistemas, uma empresa especializada no 
desenvolvimento de programas para 
microcomputadores dos tipos DGT 1000, CP 500, 
D 8002, TRS 80, NAJA, JR e outros, oferece no 
mercado um sistema para Contabilidade com 
capacidade de: 

• 1000 lan^amentos por mes. 

• 300 contas em cinco n fveis. 

• Historicos padronizados. 

• Emissao de diario, razao, balancete mensal 
e balango geral. 

• Emissao de baiancetes de verificagao. 

• Extrato de contas e outros. 

Com esse software da Nasajon Sistemas voce vera 
como e facil obter o balancete de sua empresa em 
menos de uma hora. 

Consulte a Nasajon Sistemas. Ou ser3 que sua 
empresa vai continuar correndo o risco de errar? 



re: um 



Temos tamb6m software para as areas de faturamento, credterio, 
contas a pagar /receber, folha de pagamento, controle de estoque, mala 
direta e muitos outros. 



Programa 


r 

Diskette (C rS) 


Controle de Estoque 
Mala-Direta c/Ed. Texto 
Contas pagar/receber 
Tesouraria (C/Saldo Banc^rio) 
Crediario 

Admin, de Imbveis 


165.000. 00 

210.000. 00 
125.000,00 

125.000. 00 

247.000. 00 

455.000. 00 



Voce encontra esses e outros programas em nossos revendedores 
credenciados. 



PrqMOQAO ESPECIAL J 



950 000 ,00 1 

rnMTtBIt-ID ftDE Ap.na» ■ ■ 

~ 



Av. Rio Branco. 45 gr. 1311 

Tel. : (021) 263.1241 

cep 20090 - Rio de Janeiro. 




CP-300 



CP-200 com 

SPEED 



• MODULAR 

• LINGUAGEM BASIC 

• 48 K DE MEMORIA 

• COMPATIVEL COM 
SOFTWARE DO CP-500 



• LINGUAGEM BASIC 

• 16 KDE MEMORIA 

• V E LOCIDADE DE 
TRANSFERENCE 14 VE- 
ZES MAIS RAPIDA 



• VELOCIDADE 100 CPS 

• MATRIZ 9x7 

• INTERFACE: 
PARALELA 
SERIAL 



P-720 



APROVEITE! 

promoqOes especiais • 

FINANCI AMENTO • LEA- 
SING • CONS0RCIO • CAR- 
TOES DE CREDITO: CREDI 
CARD. NACIONAL, ELLO. 



Filcres Importagao e Representapoes Ltda. 

Rua Aurora, 165 - CEP 01209 - Sao Paulo - SP 
Telex 1131298 FI LG BR - PBX 223-7388 - Ramais 2. 4. 

12, 18, 19 - Diretos: 223-1446, 222-3458, 220-5794 e 
220-9113 - Reembolso - Ramal 17 Direto: 222-0016 - 220-7718 



8 PENAS 

Area de traqado 

10 x 15 POL. 
INTERFACE RS-232 



S-600 



TRACADOR 

GRAFICO 



IMPRESSORA: 

• VELOCIDADE 130 CPS 

• MATRIZ 7x9 

• 132 COLUNAS 

• ORIGINAL + 5 COPI AS 



VELOCIDADE 200 CPS 
MATRIZ 7x9 
INTERFACE: 
PARALELA, 

SERIAL 



^sninrin mo f punwEim^ 

nao importa o tamanho de sen problema, 
nos temos a solugao na medida eaata ! 



MICRO: 

• LINGUAGENS COBOL, 
BASIC E FORTRAN 

• 64 KDE MEMORIA 

• DUAS UNIDADES DE 
DISCO 



LINGUAGEM BASIC 
48 K DE MEMORIA 
ATE 4 DRIVES 
SAIDA PARALELA SE- 
RIAL 









Junte as letras, forme as si'labas e componha uma palavra. Neste programa para 
a I inha TRS-80, um aprendizado para as criangas e um desafio para os adultos 




BBEFGH JKr 
LMNOPQRST 
UVWXYZ ABC 

DEFGHIJKLM 
NOPORSTU V 
WXYZABDEF 
GHIJKLMNO 
iPQRSTU WXY 



EDUCACAO 



mm 



com as 



vras 









Heber Jorge da Silva 



Soletrando 

10 REM 

20 REM *• SOLETRANDO 

30 REM * = POR HEBER J SILVA - BRASILIA - DF , 13 NOV 83 *« 

40 REM = = * = = = * = = = = * = * = = = 

50 CLEAR 1000:DIMN*(3> ,PPS<30,3) r MTS <14 ,14) 

55 REM »*« p/ aumentar incidencia de determinada letra no banco, alters LI 
60 LS*"AAAAABCCDEEEEEEFGHI11JKLMNN0000PQRRSSSTTUUUUVXUYZ":S%*CHRS<32) 

65 REM »•• CL S * string para apagar lista de palavras do video 
70 CL*«=""»Cl*=CHRS<32)*CHRi<24)+CHR*<26> *F0R J=lT015:CLS*CLS+Clf: NEXT 
80 CLS-CLS*CHR%<32> 

90 COSUB 100 ' GO TO? 10 



95 REM • *« mstrucoes 

100 CLStPR INT326 , "•• SOLETRANDO ••"SPRINT *PR INT"INSTRUCOES* " 

110 PRINT" 0 objetivo deste jogo e* foraar o maior nuaero possivel de" 

120 PR INT"pa 1 avr as . Os jogadores poderao coabinar gue tipo de palavras es" 

130 PR INT"t ar ao valendo. Por e::emplo, noaes de frutas, peixes, times, etc." 

140 PRINT" Para foraar a palavra, o jogador devera' usar as SETAS pa-" 

150 PRINT "ra posicionar o cursor sobre a letra desejada e teclar RETURN." 

160 PR INT"Guando terainar a palavra, devera* teclar ESPAC0 para gue a pa-" 

170 PRINT"lavra entre na sua lista. Se errar uma letra, o jogador devera*" 

180 PR INT"po» i c i onar o cursor onde ocorreu o erro e teclar RETURN PR INT" 0 

Jogador deve ser rapido ao foraar a palavra pois o j ogo" * PR INT"e * C0N1RA 0 REL 
OGIO 1 ..." 

190 PR INT" < Seapre gue teclar H, o jogador podera'rever estas mstrucoes >":PRIN 
T"TECLE QUALGUER TECLA PARA C0NTINUAR", 

200 IF INK EYS*""THEN200EL SERE TURN 

205 REM »*• captando nuaero de jogadores 

210 CLSs INPUT"QUANT AS PESS0AS VA0 J0GAR (1-3) ",N 

215 REM ••» captando noae dos Jogadores e tempo de espera 

220 FOR V® 1 T ON SPRINT "Noae do J ogador " , V » s INPUTN4 < V > s PR INT s NEXT spR INT s INPUT"Quant o 
tempo <ea segundos) cada jogador tera* por Jogada " j T 1 s RANDOM 
225 REM ••• foraando o banco de letras (matrix 15X15) 

230 F0RL-0T014SF0RC-0T014 

240 MTS < L , C ) *MID% < LS , RND < LEN ( H ) ) , 1) INEXTC.L 

245 REM ••• impriatndo o banco de palavras no video 

250 CLSSF0RC®0T014SPRINTSF0RL®0T014SPRINTMT»<L,C) |S*r SNEXTL.C 

260 CS-CHRS( 191 ) i DS»CHRS < i 40 > * PC = 64 * HH»0« VV*0 * P* 1 

265 REM •*» rot ina principal 

270 F0RV-1T0N 

280 PR I NT 30 , NS < V ) " , e’ a sua vex . . . " * s T2-INT < T 1 • l . 8 ) iG0SUB440sG0SUB4 1 0 SG0SUB290* 

PPS<P ,V)-PSrPS*""iNEXT*P*P*i:G0T0270 

285 REM «•• liaita acao horizontal do cursor 

290 IFVV<0THENVV=0tPC*PC+64ELSEIFVV>14THENVV-l4sPC»PC-64 

295 REM ••• liaita acao vertical do cursor 

300 IFHH<0THENHH=0sPC-PC+2ELSEIFHH>14THENHH=14:PC»PC-2 

310 TS=INKEYS: IFTS-""THENG0SU8450* IFT2< 0THENPS*"" sRETURN 

315 REM •»• seta para c i aa 

320 IFTS*CHRS <91 ) PR I NT3PC , MTS < HH , VV ) j s VV=VV-1 s PC=PC-64 s G0T0290 
325 REM »•• seta para baixo 

330 IF T S*CHRS < 10)PRINT3PC,MTS< HH , VV > ; s VV-VV + 1 s PC*PC*64 : G0T0290 
335 REM ••• seta *a esguerda 

340 IF TS*CHRS ( 8)PRINT3PC,MTS< HH , VV ) j * HH*HH- 1 spC°PC-2* GOT 0290 
345 REM *»• seta ’a direita 

350 IF T S*CHRS < 9)PRINT3PC,MTS< HH , VV ) ; s HH*HH> 1 *PC*PC+2 s GOT 0290 
355 REM ••• H ou h , para instrucoes 

360 IFT»-CHR*<72>0RT*-CHRS<i04>THENG0SUBi00sCLS*F0RC®0T014:PRINTsF0RL«0T0145PRIN 
TMTS<L,C) ;SS? sNEXTL,CsPRINT30,NS<V)",e* a sua vez . . . " j s PR INT3992 , PS ; s G0SUB410 
365 REM ••« corrige escolha de letra errada 

370 I F ASC < M T 4 < HH , VV ) ) >96THENIFTS=CHRS< 13) THENIFLEN<PS ) >0THENMTS < HH , VV ) =RS s PR I NT 3 
PC , RS ; :PS=LEFTS<PS,LEN<PS)-1 ) SPRINT 3992*LEN< PS ) , SS ; s GOT 0290ELSEPR INT3PC , CS j . 

375 REM *»« tecla return 

380 IFTS*CHRS(13)PS*PS*MTS<HH,VV) tPRlNT3992.PS* iRS*MTS<HH,VV> i MTS <HH.VV)=DS* PR IN 
T3PC,MTS< HH , VV ) ; SG0T0290 

385 REM ••• tecla espaco - so’ vale palavra c/ 3 letras ou mats 
390 IFTS*CHRS < 32 > ANDL*EN < PS ) >2RETURN 
400 GOT 0290 

405 REM ••• impriae lista de palavras dos jogadores 
410 PRINT332,"«»« PALAVRAS DE ";NS<V)j" *•»"; 

420 I®98sF0RP»lT015slFPPS<P.V)-""THE<NRETURNELSEPRINT3I,PPS(P,V), SI-I+64SIFD994T 
HEN430ELSENEXT SRETURN 

430 1*1 12 sFORP* 16T030 *IFPPS<P,V ) “""THENRETURNELSEPR INT3I,PPS<P,V) , s I - 1 + 64 s IF I > 10 

08 THENRETURNELSENEXT sRETURN 

435 REM *•• apaga lista de palavras 

440 FOR A*30T 062 s PR INT3A , CLS ; s NEXT SRETURN 

445 REM ••• pisca cursor 

450 FORT* 1 T 020 SPRINT 3PC.CS; s PR INT3PC . MTS< HH , VV ) ; S NEXT s PR I NT31016 , USING"*KMIMt" , T2 
l *T2*T2-1 sRETURN 



executada no tempo estabelecido no 
inicio do programa (na base do video 
aparece um cronometro que vai fazendo 
a contagem regressiva). Se um jogador 
nao conseguir terminar a palavra antes 
de esgotado o tempo, esta sera anulada e 
a vez sera dada ao proximo jogador. 
Portanto, na sua vez, tente ser rapido na 
decisao da palavra que quer formar e 
mais rapido ainda na localiza^ao das 
letras que a comporao. 

CONSIDERA^OES 



Embora o programa esteja todo 
comentado atraves das instances REM, 
cabem aqui algumas considerables. 

0 que determina a incidencia das 
letras no banco e a string LS , na linha 
60. Para aumentar ou diminuir a 
ocorrencia de determinada letra, e so 
alterar o valor desta string. 

Durante a execu^So do programa, a 
qualquer momento, as instrucoes 
mostFadas no inicio poderao ser revistas, 
bastandaapertar a tecla H. Enquanto 
isso, o contador de tempo ficara parado 
e assim, ao voltar das instrucoes, o 
programa reiniciara a execu<jao no 
ponto exato onde foi interrompida, nffo 
havendo prejuizo para o jogador. 

Sempre que for dada a vez a um 
jogador, as palavras ja formadas por este 
serao listadas no video, ao lado do 
banco de letras. 0 programa esta 
orientado para nao aceitar palavras com 
menos de tres letras, porem fica por 
conta de cada adversario a aceita^So da 
validade das palavras formadas pelos 
outros. 

Para ganhar tempo de teclagem e 
execu^ao, as linhas com instru^es REM 
nao devem ser digitadas. ■ 



Formado em Administraqao de Empresas pel a 
UDF, Heber Jorge da Silva trabalha atualmen- 
te na Telebrasilia, onde exerce atividades liga- 
das £ programagao de microcomputadores. 



D esenvolvido para micros 

compativeis com o TRS-80 
modelos 1 e III com 16 Kb 
de RAM, este programa 
proporciona um interessante 
passatempo, tanto para adultos quanto 
para crian^as em idade escolar, uma vez 
que ajuda a aprimorar a habilidade de 
soletrar e reconhecer as palavras. 



COMO JOGAR 



PoderSo participar do jogo de uma a 
tres pessoas. Logo apos mostrar as 
instances, o programa perguntara 
quantos e quais os nomes dos jogadores. 
bem como o tempo que ele devera 



esperar pelas respostas de cada um 
(este tempo e igual para todos). 

Apos as perguntas iniciais, aparecera 
no video um banco de letras escolhidas 
aleatoriamente, do qual cada 
participante devera tirar.as letras 
necessarias a forma^ao da palavra que 
desejar formar. O objetivo do jogo e 
formar o maior numero possivel de 
palavras usando as letras que restam no 
banco. 

Para tirar uma letra do banco, o 
jogador devera fazer uso das setas para 
posicionar o cursor piscante sobre a 
letra desejada e pressionar a tecla 
RETURN, e assim sucessivamente ate 
completar a palavra. Se porventura o 



jogador cometer um erro na retirada de 
uma letra, para corrigi-lo basta 
posicionar .o cursor onde ela estava e 
digitar novamente RETURN : a letra 
sera reposta no banco e a palavra que 
estava sendo formada sera descontada 
desta letra. A corre^o, no entanto, so 
e valida desde que o jogador nao tenha 
retirado outra letra apos ter cometido o 
erro. 

Uma vez pronta a palavra, o jogador 
devera pressionar ESPACO para que 
esta seja inserida na sua lista, fazendo 
com que o programa de a vez ao 
adversario. 

£ importante frisar que a operabao 
de forma^ao da palavra deve ser 
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Analise em graficos de titulacao o comportamento de sistemas acido 
forte-base forte e vice-versa no seu HP-85 



Acidos e bases: 
analise em graficos 

Rodrigo Leygue-Alba 
Mauro Mandelli 



O objetivo basico deste artigo e fomecer aos levantamentos experimental de curvas de titulacao. 

interessados, especialmente aos da area de Quimica Considerando tambem a necessidade de dispor de aparelhagem 
Analitica, uma forma rapida e precisa de efetuar adequada (pH -metro, microbuieta etc.), constata-se que o 

levantamentos das curvas de titula^o por tempo dispendido para tais procedimentos 6 grande. Dai a 

neutraliza?ao em metodos computacionais. Alem dos motivos importancia deste programa. 
pedagogicos demonstratives que ensejam a utiliza^ao do . 

programa, este servira tambem para fomecer subsidios a serem SISTEMAS ACIDO-BASE 

levados em considerate), quando forem tornados os dados 

experimentais de titulacao. 0 comportamento de sistemas acido-base, conhecido 

Para urn quimico analitico, familiarizado com analise do tambem como volumetria de neutraliza^ao. e urn metodo de 
comportamento de sistemas acido forte - base forte e analise baseado na rea?ao entre ions (H 30 + ) e ( OH- ), 

vice-versa, nao e dificil imaginar o tempo requerido para os produzindo uma neutraliza^So do componente titulado. 




Figure 1 
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Figura 3 



EntSo, se e efetuada uma reagao de um acido forte 
monoprotico com uma base forte, o numero de equivalentes 
do ion (H^ vai sendo diminuido por um numero semelhante 
de equivalentes da base adicionada, seguindo a reagao: 

H + + OH" H 2 ° 

Esta neutralizagao fmaliza num ponto onde o numero de 
equivalentes do acido e exatamente igual ao numero de 
equivalentes da base. Este ponto 6 conhecido como ponto de 
equivalence e e medido na escala de pH. 

Construindo-se os graficos da relagfo entre o pH e o 
volume adicionado do titulante, 6 possivel obter as chamadas 
curvas de titulado, as quais permitem localizar o ponto de 
equivalence de um determinado sistema acido-base. 

0 nosso programa, escrito em linguagem BASIC, possibilita 
justamente levantar graficos de titulagao de acido adicionado 
a base, ou mesmo base adicionada ao dcido. £ importante 
ressaltar que os acidos e bases deverao ser do tipo forte, ou 
seja, ambos de total dissociagao. 

Pode ser observado na figura 1 que, em tomo do ponto 
de equivalence, existem diversas linhas retas com inclinagoes 
diferentes. Isto ocorre devido a diminuigao do poder de 
resolugao existente na mudan 9 a de pH, a medida que o 
incremento de volume do titulante aumenta. Este 
comportamento e verificado tambem na pratica, onde o 
volume de incremento do titulante e reduzido ao se aproximar 
do ponto de equivalence. 

Visto que, no programa proposto, o incremento de volume 
do titulante 6 uma constante no decorrer do levantamento da 
curva de titulagao, sugere-se que, para altas resolugdes, os 
incrementos de volume sejam os menores possiveis (figuras 
2 e 3). 

0 programa preve uma possivel superposigao de graficos 
a fim de facilitar analises comparativas entre diversas curvas 

» 
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ACIDOS E BASES: ANALISE EM GRAFICOS 




Figura 4 

(figura 4 ), possibilitando tambem o registro dos dados iniciais 
da titula^ao. 

0 volume do titulado nao tern um limite defmido, porem 



o volume do titulante esta limitado graficamente a um 
valor maximo de 100ml. Entretanto, o usuario podera alterar 
estas variaveis para uma melhor utiliza^ao propria nos 
comandos For-Next correspondentes, incluindo o 
redimensionamento grafico. 

As equa^oes empregadas para desenvolver o programa foram 
equav'oes de balan^o de material, existindo uma troca de 
fatores quando o sistema atinge e passa do ponto de 
equivalence. 

Finalmente, o proprio operador do programa achara 
aplica 9 oes diversas no vasto campo que representam as 
titula^oes de neutraliza^ao. 



N. M. Rodrigo Leygue-Alba 6 mestre em Quimica Anal idea pela 
UNICAMP e professor da Umversidade de Caxias do Sul - RS. £ tambem 
orientador de Iniciagao Cientifica pelo CNPq e Fapergs. 

Mauro Mandelli 6 aluno do curso de Engenharia Quimica na Universi- 
dade de Caxias do Sul e bolsista de Iniciagao Cientifica do CNPq. 



O que um microcomputador pode fazer por um radioamador ? 

Muito mais do que imagina a nossa va filosofia... 

O micro no shack 
do radioamador 

Dirceu Pivatto da Silva 



Graficos de Titulagao de Acidos e Bases 
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P ara o radioamador de algumas 
decadas atrds, o ideal da cons- 
tru^ao caseira de seu proprio 
radio constituia-se num dos 
pontos maximos de sua capacita^ao tec- 
nica. Hoje, os novos equipamentos de 
rddio sao t 2 o sofisticados que nao 6 mais 
possivel atingir, com a constru^ao casei- 
ra, o mesmo patamar t^cnico oferecido 
pelos produtos industrializados. 

Em cada equipamento de rddio lan- 
9 ado no mercado podemos encontrar 
uma gama cada vez maior de caracte- 
nsticas operacionais, obtidas a partir de 
modemos circuitos integrados. Alem 
disso — e este e o assunto principal deste 
artigo nfo como negar que o casa- 
mento da microcomputa 9 ao com o ra- 
dioamadorismo ja se realizou ha muito 
e seus U 90 S parecem ser do tipo a moda 
antiga : absolutamente indissoluveis. 

Quando falamos em radioamadoris- 
mo e microcomputa 9 fo nao estamos 
querendo chamar sua aten 9 ao para a 
engenharia interna computadorizada de 
um transceiver (transmissor + receptor), 
mas sim para dois objetos distintos: um 
radio e um microcomputador que, com 
certeza, ja s£o seus conhecidos. 

A partir deste ponto, mesmo que vo- 
ce nfo seja radioamador e ainda nao sai- 
ba sequer operar um micro, sua curiosi- 
dade e interesse pelo tema poderSo estar 
desencadeando uma cascata de indaga- 
95 es do tipo: 

• Pode-se juntar um radio e um micro? 
• Que coissfs podem ser obtidas ope- 
rando-se os dois juntos? 

• Quern ajuda quern? 0 radio serve 
ao micro ou o micro serve ao r&dio? 

• 0 radio entende a linguagem do 
micro? 

• Tern gente no Brasil operando rddio 
atraves do micro? 

• Quern ja tern um micro tern vanta- 
gens entrando para o radioamadorismo? 



• Quern ja 6 radioamador tern vanta- 
gem em comprar um micro? 

• £ muito difidl para um radioama- 
dor padrdo medio usar um micro em seu 
shack (sala do rddio)? 

Como vemos, € possivel formar um 
rosario de indaga 95 es e todas elas muito 
pertinentes... 



GR.ANDES POSSIBILIDADES 



A dissemina 9 ao dos microcomputa- 
dores atingiu muitas dreas da atividade 
humana e dentre elas o mundo das co- 
munica 90 es radioamadorfsticas. Para 
aqueles que ja sSo radioamadores pode- 
mos dizer que o micro pode prestar in- 
crfveis servi 90 s nos limites de um shack . 
Por exemplo: 

• administrar o arquivo dos QSO (con- 
tato entre duas esta 9 oes); 

• editar cartSes QSL (contato confir- 
mado) via impressora; 

• fazer os logs (relatorios) dos contes- 
tes na hora em que estfo se realizando, 
indicando at6 os comunicados repetidos; 

• durante um QSO, contar tudo sobre 
todos os comunicados anteriores j£ rea- 
lizados com aquele colega; 

• auxiliar, como o mais eficiente pro- 
fessor, sua aprendizagem de telegrafia 
(CW); 

• facilitar seus estudos de radioeletri- 
cidade ; 

• calcular qualquer tipo de antena e 
indicar para onde voce deve apontar 
a sua nos comunicados que realiza; 

• calcular o rastreamento dos sat^Ii- 
tes de comunica 9 So radioamadoristica; 

• fazer a predi 9 ao da propaga 9 ao ionos- 
ferica (HUF = Maximum Usable Fre- 
quency) para sua s tentativas de “DX M 
etc. 

Um micro razodvel faz tudo isso e 
muito mais: colocando-o no ar y atraves 
de uma interface e de seu radio, voce 
tera a grande ventura de conhecer o 



mundo maravilhoso do RTTY (radio - 
teletipo). Vejamos algumas dentre as va- 
rias coisas que voce podera fazer neste 
campo: 

• receber o sinal de Codigo Morse em 
sua forma audivel e transporta-lo para 
o video do micro com a mensagem de- 
codificada para sua forma escrita. O 
sentido inverso tambem 6 possivel, ou 
seja, voce pode teclar uma mensagem no 
computador e o radio colocar esta men- 
sagem no eter na forma tradicional do 
“DI-DA-DI-DA^ da telegrafia; 

• a mesma opera 9 ao pode ser realizada 
utilizando-se o Codigo Baudot (o mes- 
mo empregado pelo telex), e entSo es- 
taremos fazendo RTTY ; 

• sen tar -se em frente ao video e ver 
desfilar as mesmas notfcias que naquele 
exato momento as empresas jomaiisti- 
cas e de broadcastings st£o recebendo;^ 
possivel gravar estas not icias e reproduzi- 
las por escrito sempre que desejarmos; 

• iigar e desligar, de sua sala, radios e 
micros em qualquer parte do mundo. De 
sua casa voce faz consul tas na memoria 
de um micro situado em Toqiiio, por 
exemplo, podendo deixar (devidamente 
conferido) qualquer recado para seu 
proprietdrio se ele nfo estiver em casa 
no momento. 

Estas s£o apenas algumas possibilida- 
des. Varias outras existem, inclusive 
aquelas que voce podera criar um dia. 
De minha parte, tenho a convic^o de 
que, antes de se esgotar a proxima deca- 
da, em toda esta 9 ao de radioamador exis- 
tirfo, lado a lado, um microfone e um 
microcomputador. 

Se voce entusiasmou-se com estas 
ideias, o que estd esperando ?. . . ■ 



Dirceu Pivatto da Silva — PY3IT 6 radioama- 
dor classe A e consultor da FundagSo para o 
Desenvolvimento de Recursos Humanos 
RS. 
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Se calcular uma raiz quadrada nunca foi seu forte, aqui esta a sua chance 
de aprender: este programa fara de seu micro Sinclair um paciente professor 



Raiz quadrada? 
O micro ensina 

Francesco Tropeano 



E ste programa e uma verdadeira 
aula de matematica, ensinando, 
especificamente, um metodo 
para calcular a raiz quadrada de 
um numero inteiro ou decimal, desde 
que nao seja negativo. Foi escrito 
para os micros compativeis com o 
Sinclair, podendo ser operado tanto 
em SLOW quanto em FAST. 

Durante a execu^ao, o programa 
fornecera a teoria e as instru^es 
necessarias para o calculo da raiz 
quadrada. Um numero e sorteado e o 
calculo i feito passo a passo, ou seja, 
cada operado efetuada e mostrada no 
video acompanhada de um texto 
explicativo. O ritmo e o aluno quern 
escolhe, bastando acompanhar 
atentamente o processo e tentar depois 
fazer tudo sozinho para fixar o 
aprendizado. 

Os numeros sorteados variam de 3 a 
6 algarismos para os inteiros e 3 
algarismos para os decimais, cujas raizes 
sao calculadas com erro menor que 
0 , 001 . 



Francesco Tropeano 4 formado em Materniti- 
es peia Fund agio Santo Andri e fez curso de 

COBOL . 



Raiz Quadrada 



5 PRINT 

10 PRINT "NESTE PROGRAMA VOCE 
VAI APRENDER" 

15 PRINT 

20 PRINT "A CALCULAR RAIZ QUAD 
RADA DE NU-" ' 

22 PRINT 

23 PRINT "MEROS INTEIROS E DEC 
IMAIS " 

25 GOSUB 400 

26 CLS 

27 PRINT 

28 PRINT "DADO UM NUMERO B QUA 
LQUER, CHA-MA-SE C RAIZ QUAD RAD 
A DE B QUAN-DO C ELEVADO AO QUAD 
RADO E IGUALA B . " 

30 PRINT 

31 PRINT 

3.2 PRINT "NO CAMPO DOS REAI 
S NAO EXISTERAIZ QUADRADA DE NUM 
EROS NEGATI-VOS. " 

33 PRINT 

35 PRINT "PARA O CALCULO DA RA 
IZ QUAD RAD ASEGUIREMOS UMA SEQUE 
NCIA DE PAS-SOS." 

37 GOSUB 400 

38 CLS 

40 GOTO 137 

52 LET N $ = " " 

54 LET I-INT (RND*4)+1 

56 FOR 1=1 TO 6 

57 LET N$=STR$ INT ((RND*9)+1) 
+NS 

58 NEXT I 

60 LET I-LEN N$ 



62 GOSUB 442 

65 CLS 

70 GOSUB 200 

73 GOSUB 400 

7 4 CLS 

76 GOTO 130 

80 PRINT "A RAIZ QUADRADA DE U 
M NUMERO DE-CIMAL TEM A METADE D 
AS CASAS DE-C IMAIS DO RADICANDO. 

’ 82 PRINT "PARA NUMEROS QUE NAO 

TEM RAIZESEXATAS (RESTO DIFERE 
NTE DE ZERO) NOS PODEMOS TER MAI 
OR APROXIMA-CAO TENDO TANTAS CA 
SAS DECIMAISQUANTO DESEJARMOS" , , 
, "NESTE CASO BASTA ACRESCENTAR 
AONUMERO O DOBRO DAS CASAS DESEJ 
A-DAS . " 

83 GOSUB 442 

84 LET NS = "" 

86 FOR 1=1 TO 3 

88 LET N$=STR$ INT ((RND*9)+1) 
+N$ 

89 NEXT I 

90 LET I=LEN N$ 

93 LET N$=NS (1) +" . "+N$ ( 2 TO 3) 

95 GOSUB 400 

97 CLS 

99 PRINT "RAIZ QUADRADA DO NUM 
ERO: " ;NS 

100 PRINT 

102 PRINT "COM ERRO MENOR QUE 0 

. 001 " 

103 PRINT 

105 PRINT "CONFORME A REGRA NE 
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STE CASO DE-VEMOS ACRESCENTAR QU 
ATRO ZEROS" 

107 LET N$=N$+"0000 " 

108 LET 1=7 

110 PRINT "NUMERO DO RAD I CAN DO = 
" ;N$ 

120 GOSUB 400 

122 CLS 

123 LET N$=N$ ( 1) +N$ ( 3 TO 8) 

124 GOSUB 200 

126 LET J$=J$ ( 1) +" . "+JS ( 2 TO ) 

127 LET N $ =N $ ( 2 ) + " . " +N $ ( 3 TO 4) 

128 CLS 

130 PRINT "RAIZ QUADRADA DO NUM 
ERO: " ;N$ , , "=" ; J$ 

131 PRINT 

135 PRINT "INICIE O PROGRAMA. TE 
NTE RESOLVERO EXERCICIO SOZINHO, 
SE TIVER DU-VIDAS DE CONTINUIDA 
DE ATE T IRA -LAS. " 

136 PRINT 

137 PRINT "DIGITE: , "1 - PARA 
INTEIROS", "2 - PARA DECIMAIS", "3 

- INICIO DO PROGRAMA" 

138 INPUT A* 

139 CLS 

142 IF A$="3" THEN RUN 

143 IF A$="2" THEN RUN 80 

144 RUN 50 

200 REM "RADICANDO" 

205 PRINT "RAIZ QUADRADA DO NUM 
ERO: " ; N $ 

210 PRINT AT 3,4; n [iaSffi£a 

BET 

215 PRINT AT 4 , 1 ; "gEET ? AT 4,19 
; 'IT ; AT 5,1; "Offi" ; AT 5,19; "B535! 
^■ff";AT 6,1; W 
218 FOR N=6 TO 15 
220 PRINT AT N,19;"Er’ 

222 NEXT N 

224 PRINT AT 4,6;N$;AT 4,20; "RA 
IZ" 

226 GOSUB 400 

240 LET R=I -INT (1/2) *2 

241 PRINT AT 17 , 0 ; "-DIVIDIR OS 
ALGARISMOS DO NUMERO EM PARES DA 

DIREITA P/ESQUERDA" 

242 IF R=0 THEN GOTO 248 
244 LET N$=" 0 "+NS 

246 LET 1=1+1 

248 LET MS=NS ( TO 2)+"."+N$(3 T 
O 4) 

250 IF 1=4 THEN GOTO 258 
252 LET M$=M$+" . "+NS ( 5 TO 6) 

254 IF 1=6 THEN GOTO 258 
256 LET M$=M$+" . "+N$ (7 TO 8) 

258 PRINT AT 4, 6; MS 
260 GOSUB 400 

265 PRINT AT 17,0; "-SUBTRAIR DO 
PRIMEIRO PAR O MAI- OR QUAD RADO 
PERFEITO POSSIVEL." 

266 FOR J=1 TO 9 

268 LET S=VAL N$ ( TO 2) -J*J 
270 IF S=0 OR (VAL N$ ( TO 2)-(J 
+1)MJ+1))<0 THEN GOTO 274 
272 NEXT J 

274 LET M$="-"+STR$ (J*J) 

276 PRINT AT B,5;M$;AT B+1,6;S 
280 GOSUB 400 

282 PRINT AT 17,0; "-RAIZ DESSE 
QUADRADO PERFEITO COLOCA-SE N 
O LOCAL DESTINADO A RAIZ E O DO 
BRO COLOCA-SE ABAIXO" 

284 LET R$=STR$ J 

285 PRINT AT 4,20;" " ; AT 4,2 

0 ; R$ 

290 PRINT AT 6,20; (J*2) 

292 GOSUB 400 

293 PRINT AT 17,0; "-ABAIXA-SE O 
PAR SEGUINTE FOR- MANDO COM O 

RESTO ANTERIOR UM NOVO NUMERO 

295 LET X=X+2 

296 LET Y=Y+2 



297 LET M$=STR$ S+N$ (Y TO X) 

300 PRINT AT B+1,6;M$ 

305 LET W=LEN M$ 

310 GOSUB 400 

312 PRINT AT 17,0; "-SEPARA-SE O 
ULTIMO AL GAR IS MO DA DIREITA DO 
NOVO NUMERO COM UMA VIRGULA E D 
IVIDE-SE O QUE FICOU A ESQUERDA 
PELO DOBRO DA RAIZ." 

315 LET X$=M$ ( TO W-l ) +" , "+MS ( W 

) 

320 PRINT AT B+1,6;XS 
322 LET N=INT (VAL M$ ( TO W-l)/ 
( J*2) ) 

324 GOSUB 400 

325 LET K=J 

326 PRINT AT 17,0; "-0 QUOCIENI 
E APROXIMADO COLOCA- SE A DIREI1 
A DA RAIZ E A DIREI- TA DO DOBRC 

DA RAIZ. 

330 LET J$=STR$ J+STRS N 
333 PRINT AT 4,20;J$ 

335 LET L|=STR$ (J*2)+STRS N 

336 LET J=VAL J$ 

338 PRINT AT C,20;LS 

339 IF N=0 THEN GOTO 472 

340 GOSUB 400 

342 PRINT AT 17,0; "-ESTE MESMO 
QUOCIENTE MULTIPLI- CA-SE PELO 
NUMERO " ; LS ; " 

344 LET L=VAL L$*N 
346 PRINT AT C, 20 ;L$ ; "X" ;N; "=" ; 
L 

348 LET S=VAL M$-L 

349 IF S<0 THEN GOTO 450 

350 GOSUB 400 

352 PRINT AT 17,0; "-0 PRODUTO E 
NCONTRADO SUBTRAI-SE DO NUMERO 
FORMADO PELO ULTIMO PAR ABAIXAD 
O: " ;M$ 

354 LET B=B+2 

356 PRINT AT B,5;"-";L 

358 PRINT AT B+1,6;S 

360 GOSUB 400 

370 IF I=X THEN RETURN 

372 LET C=C+1 

374 PRINT AT C,20;(J*2) 

376 GOTO 293 

400 PRINT AT 21,4; "DIGITE A PAR 
A CONTINUAR" 

410 INPUT AS 

420 IF A$<> "A" THEN GOTO 400 
430 PRINT AT 21,4;" 

440 RETURN 

442 LET X=2 

443 LET Y=1 
445 LET B=5 
447 LET C=6 

449 RETURN 

450 GOSUB 400 

452 PRINT AT 17,0; "-ESSE QUOCIE 
NTE NAO SERVE. DEVE- SE SUBTRAIR 
1 E VOLTAR A MULTI- PLICAR NOVA 
MENTE. 

455 PAUSE 240 
458 LET JS=STRS K 
460 LET J=VAL J$ 

463 LET N=N-1 

464 PRINT AT 4,20;" " ; AT C 

, 20 ;" 

470 GOTO 326 

472 IF X=I THEN RETURN 

473 LET S=S+VAL NS(Y TO X) 

476 PRINT AT 17,0; "-COMO NAO DA 
PARA DIVIDIR ACE I- TAMOS O ZER 

O E BAIXAMOS OUTRO PAR. 

If 

477 GOSUB 400 
480 GOTO 293 

485 SAVE "RAIZ2" 

486 RUN 5 
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| VOCE TEM UM MICRO?| 
NOS TEMOS 

/uprimc-nto 

DISKETTE S 1/4" E 8” 

FORMULARIO CONTlNUO 

FITA LMPRESSORA 

FITA K-7 CURTA DURACAO 

ETIQUETAS ADESIVAS 

PASTA PFORMULARIOS 

80 E 132 COL. 2 

ARQUIVOS EM ACRlLICO, ® 
RACKS E PASTAS 
PARA DISKETTES. 

REBOBINAMOS QUALQUER FITA 
PRONTA ENTREGA 
QUALQUER QUANTIDADE 
GARANTIA E QUALIOADE. 



/uprime.nto 

RUA VISCONDE DE PIRAJA 550 - LOJA 202 
(0211 274 8845 (021) 2464180 BIP 36X8 
IPANEMA RIO (011* 816-3344 BIP 587A 
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VENDO 



compro 




EQUIPAMENTOS 



• Tenho um TK 82 e uma fita 
com dois jogos e gostaria de ne- 
goci^-los com um CP-200 e ainda 
dou uma compensapao em dinhei- 
ro. Desejo tamb^m entrar em con- 
tato com pessoas que possuam o 
micro TK 82. Tratar com Marcelo 
Thomaz, Rua Bauru. 330, V. Lin- 
da - Santo Andre, Sao Paulo. 
CEP 09000, tel.: 412-1972. 

• Vendo: 4 displays LCD para 

relbgio; 1 LCD para calculadora; 
um microprocessador Z-80; um Cl 
de 40 pinos com referenda trasei- 
ra = 81 13;esquema do DGT-100; 

catalogos da maioria dos compu- 
tadores brasileiros al§m de calcu- 
ladoras; uma calculadora Dismac 
musical, xerox do manual do 
Z8000; revistas Nova Eletronica 
diversas; revistas de eletronica de 
1954 em diante. Compro expan- 
sao de 16 K para Z8000 ou TK 
82, nao importando o estado ex- 
terno. apenas o interno. Tratar 
com Dante Eickhoff Caixa Pos- 
tal 68, Tres de Maio, Rio Grande 
do Sul - CEP 38910. 



• TRS-80 Pocket Computer 

(Sharp PC 1211). Vendo conjun- 
to com impressora ou somente 
impressora. Pierre, tel.: (011) 

257-6236. 

• Comodore 64/Vic 20. Vendo 
interface para cassete. Tratar com 
Gustavo, fone (011) 460-3208 — 
Sao Paulo — SP. 

• Vendo NE-Z8000 com expan- 
sao de 16 K, pouco tempo de uso. 
Cr$ 100 mil. Tratar com Abelar- 
do; SQN 408 Bloco N apto. 302. 
Brasilia. Tels.: (061) 272-0395 - 
234-1331. 

• Vendo cartucho de ATARI 
400/800, modelo CXL4002, nome 
BASIC COMPUTING LANGUA- 
GE, juntamente com o seu ma- 
nual de utiliza<pao. E vendo um 
alarme computadorizado para ca- 
sa. O preco do cartucho 6 Cr$ 

80.000. 00 e do alarme Cr$ 

60.000. 00. Os dois produtos sao 
importados e estao sendo vendi- 
rios a preco de custo. Falar com 
Claudio Coelho Lima. Avemda Se- 
te. 2901, apt. 1701, tel.: (071) 
247-7181, Salvador, Bahia. 



• Vendo TK82-C com 16 Kby- 
tes, chave inversora de video e 
mais 20 jogos, tudo por Cr$ 150. 
000,00. Tratar com Luiz Carlos 
Fernandes, Rua Atos Damasceno. 
310, CEP 04372, Sao Paulo. SP. 

• Compramos microcomputado- 
res Apple, com ou sem impresso- 
ra. Interessados favor contactar 
com ECOPLAN, Rua Felici'ssimo 
de Azevedo, 924, Porto Alegre — 
RS. CEP 90.000, tel (0512) 42- 
4821. 

• Troco um Tig-Loader com 
pouquissimo uso por um joystick 
para TK82-C. Tratar com F3bio 
Almeida Barbosa, tel.: (011) 570 
2078. 

• Vendo JR Sysdata. seminovo. 
48 Kbytes, Extended Basic, por 
Cr$ 600.000,00 e um video, 
(TV Philco 12 polegadas) por Cr$ 

100.000. 00 Tratar com CI6vis pe- 
lo tel.: (011) 440-9688. Santo 
Andr6, SP. 

• Compro um CP-200 ou um 
RINGO sem expansao, de prefe- 
rence ainda na garantia, pelo 
preco de Cr$ 100.000,00 de en- 
trada e seis prestapoes de Cr$ 

40.000. 00 jd usado, e se ainda es- 
tiver na caixa fechada, a!6m de 
cem mil dou sete prestapoes de 
quarenta mil e nota fiscal. Tratar 
com Henio T. Barros, Rua Silvio 
Romero, 340, Petrbpolis, Carua- 
ru. PE. CEP 55100. 

• Compro um CP-200, sem ex- 
pansao, na garantia, com entrada 
de Cr$ 1.000.000,00 e o resto 
parcelado em pagamentos de ate 
Cr$ 30.000,00. Escreva para He- 
nio Teixeira de Barros. Rua Silvio 
de Barros, 340 B. Petrbpolis, Ca- 
ruaru. PE, CEP 55100. Obs.: as 
lojas tambbm poderao entrar em 
contato comigo. 



SOFTWARE 



• Vendo software para HP-41 C, 
estrlituras e an£lise matriciai para 
porticos, vigas continues de atg 7 
nbs. Entrar em contato com An 
tonio Vieira Ribeiro, Caixa Postal 
435, CEP 07000, tel. (011) 209- 
7784, Sao Paulo. 



DIVERSOS 



• Gostaria de comprar MICRO 
SISTEMAS do numero dois ao 
nove, desde que em bom estado. 
Tratar com Jefferson da Silva Ju- 
nior, Rua da Palma. 575, apto. 
203, Sao Jos6, Recife, PE, CEP 

50.000. 

• Gostaria de comprar a MICRO 
SISTEMAS n9 23 pelo prepo 
atual e vender o livro "Introdu- 
pao 'a linguagem BASIC", de Ro- 
berto Kresch, por Cr$ 4 mil 500. 
Tratar com M. A. da Motta Mo- 
raes, Rua UmanapiS n9 45, Br3s 
de Pina, CEP 21011, Rio de Ja- 
neiro. 



• Tradupao de literatura t^cnica 
de microcomputadores e perif6- 
ricos: manuais de instrupao de 
equipamentos e de programas. 
guias de usu^rio. etc. Tenho tra 
dupoes prontas de literatura da 
Commodore Wilson, tel.: 222- 
0902 - RJ. 

• Estou muito interessado em 
programas que digam respeito ao 
radioamadorismo e que sejam 
compativeis com o D-8001 . Posso 
fornecer alguns programas das re- 
vistas "73 MAGAZINE" e "QST". 
Meu prefixo 6 PP5-VH e opero 
nas seguintes bandas: 80m, 40m, 
20m, 15m, 10m, 6m, 2m e 70cm. 
Meu nome 6 Valdemar Hennings 
PP5-VH Caixa Postal 8 - CEP 
89120 - Timbo - SC. 

• Compro livro Ingles/Frances/ 
Portugues de programas de jogos 
para o TK82-C (16 KB). Tratar 
com Joao Aluisio Zambano Gar- 
gantini no seguinte enderepo: 
Rua Baia, 551 — Vila Marcondes 
— CEP 19.100 - Presidente Pru- 
dente — SP. 



CLUBES 



• O TK CLUBE DE NATAL es- 
ta abrindo os seus arquivos para 
preenche-los com os dados dos 
usuarios de microcomputadores 
da linha Sinclair (TK 82-C, CP-200, 
etc ). Se voce possui microcom- 
putadores e deseja intercambiar 
informapoes e programas, escreva 
para o nosso Clube. Rua Praia de 
Camboinhas, 9115, Ponta Negra. 
Natal. RN. CEP 59000. 

• Desejo entrar em contato com 
Clubes e pessoas que possuam mi 
crocomputadores pessoais. Entrar 
em contato com Joao Gurmelho, 
Caixa Postal 431, CEP 80.000. 
Curitiba. Parang. 

• Tenho um CP-200 e gostaria 
de contactar possuidores de TK 
85 e compativeis. M. A. da Mot- 
ta Moraes, Rua Umanapia n9 45. 
Br3s de Pina, CEP 21011, Rio de 
Janeiro. 

• Estamos fundando o Micro 
Clube do Brasil e nos preparando 
para o lanpamento do primeiro 
numero de seu Boletim Trimestral 
"Brasil Informatico". A assinatura 
6 gratuita basta nosescrever. Rua 
Dep. Josb Tavares, 236 - CEP 
58100. Campina Grande — PB 
Enviar correspondence aos cuida- 
dos de Joao Tom6 de Araujo Fi- 
Iho. 

• Gostaria de entrar em conta- 
to com pessoas que possuam com- 
putadores da linha Sinclair para 
troca de programas. principalmen- 
te jogos e aplicativos. Tratar com 
Fernando pelo tel. (011) 543- 
4787 ou escreva para Antonio 
Fernando Cabral, Alameda dos 
Anapurus, 746/apto 21. Sao Pau- 
lo, CEP 04087 



GARANTA 
SUA MS 
TODO MES ! 

Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista) : 

nome- 

empresa 

profissao/cargo . 

enderepo para remessa 



cidade cep estado 

Assinatura anual 

□ Micro Sistemas Cr$ 15.000,00 

□ Inform^tica & Administrapao Cr$ 20.000,00 



□ Micro Sistemas+lnform^tica &Administrapao Cr$ 31.000,00 



Preencha um cheque nominal 2 ATI Editora Ltda e envie 
para: 

Rua Visconde Silva, 25 — Rio de Janeiro — RJ — CEP 
22281 - tel (021 ) 286 1 797. 246-3839 e 266-0339. 

Al. Gabriel Monteiro da Silva. 1227 — Sao Paulo - SP — 
CEP 01441 - tel: (011)853-3800. 

Seu recibo ser3 enviado pelo correio. 
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19, do Ciclotron: 
Supere Esta Barra!, 
na linha 70 


70 PRINT@0 , " JOG. 1 : " ; J 1 : 
PRINT@25"CICLO : " ;G: 
PRINT@5 2 , "JOG. 2 : " ; J2 : 


70 PRINT@0 , "JOG. 1 : " ; J1 : 
PRINT@2 5 , "CICLO : " ;G: 
PRINT@52 , "JOG. 2 : " ; J2 ; 


28 


23, na Se^ao Con- 
versao: Programe 
em Segredo no 
Apple, linha 270 

Na linha 280 


270 DATA A,K,B,M,C,L,D,N 
,E,Z,F,I,G,M 

280 DATA H,B,I,A,J,D,K 
,B,L,E,M,C,N,F,0,B,P,Q,Q 
,0,R, P 


270 DATA A,K,B,M,C,L,D,N 
,E,Z,F,I,G,H 

280 DATA H , G , I , A , J , D 
,K,B,L,E,M,C,N,F,0,R,P,Q 
,Q,0,R,P 




Na linha 290 


290 DATA S,U,T,X,U,T,V,V 
X,S,Z,J," ",W,".", 

It II II II M_H . »l 

r > t r • 


290 DATA S,U,T,X,U,T,V,V 

V c 7 T II II T a 7 II •• 11 < *’ " • 

r A r O f Zt t J r r W , . t r 

n n > n ii it »i . n 
/ f r 
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50, do Apple 
Paddle: Fa^a Voce 
Mesmo, ultimo pa* 
ragrafo da 29 colu- 
na, na observa$ao 


qualquer potenciometro de 1 kohms 


qualquer potenciometro a partir de 1 
Kohms 


28 


54, do Penosa Tra- 
vessia, linha 17 


17 PRINT" " ; CHR$ M;" 

* » 


17 PRINT" " ; CHR$ M;" 

* » . 
f 




Na linha 34 


34 PRINT AT A,B;"$";AT 
A , B ; " " 


34 PRINT AT A,B;"$";AT 
A , B ; " " ; 




Na linha 48 


48 GOSUB 28 


48 GOSUB 29 


28 


71 , de Um Teclado 
A Moda da Casa, fi- 
gura 2, programa 
Coloca , linha 190 

71, 29 coluna, item 

4 


190 PRINT CHR$ (4);"BSAV 
E KEYINREDEF , A$0300 , 
L$54" 

4) responder as perguntas que aparecerao 
na tela e fornecer um nome a tabela de re- 
defini^oes criada. . . . 


190 PRINT CHR$ (4);"BSAV 
E KEYINREDEF, A$0300 , 
L$5 5" 

4) rodar o programa COLOCA (RUN CO- 
LOCA); e responder as perguntas que apa- 
recerao na tela e fornecer um nome a ta- 
bela de redefini^oes criada. . . 


29 


50, do Inteligencia 
Artificial -I, 29 co- 
luna, apos o 19 pa- 
ragrafo 




O funcionamento do Minimizador e and- 
logo, exceto pelo fato de que ele tenta co- 
locar o melhor lance em Beta. 



M 



PROCURE QUEM 
REALMENTE ENTENDE. 



ZsMICROMAQ 



R. Sete de Setembn), 92 - Lj. 106 
Tel.: 222-6088 - Rio de Janeiro 



POR QUE NAO TUDO EM 
UM S6 LUGAR? 

Microcomputadores, Sotware, Publica^des 
Especializadas, Cursos e Manuten^ao de Equipamentos. 



MICRO SISTEMAS. marco/84 






Linha TRS-80 




Paginando melhor o video 



Na Se<;ao Dicas de MS n9 25, publicamos uma rotina 
para v pagjnar” o video. Agora apresentamos uma forma 
ainda mais pratica para controlar, atraves do endere^o do 
cursor, o numero de linhas de uma “pagina” do video, per- 
mitindo que se passe para a outra “pagina" do video so- 
mente quando desejarmos: 



100 CLS : FOR I = 1 TO 100 

110 PRINT "LINHA"; I 

120 IF PEEK ( 16416) + 256* 

PEEK ( 16417) - 15360832 
THEN GOSUB 500 

130 NEXT I 
140 END 

500 PRINT "APERTE QUALQUER TECLA 
PARA NOVA PAGINA" 

510 IF INKEY $ = "" GOTO 510 
520 CLS: RETURN 



In 

dicS 



E o mais interessante e saber que as posigoes 16416 e 
16417 contem, respectivamente, o LSB e o MSB da posi^ao 
atual do cursor na tela (memoria de video, de 15360 a 
16383); a linha 120 calcula a posi^ao PRINT @ , compa- 
rando-a com a posi^ao inicial da linha desejada -832, neste 
caso, e que corresponde a 13? linha. E apos imprimir esta 
linha, a sub-rotina da linha 500 imprime uma mensagem na 
linha seguinte e fica aguardando que se pressione qualquer 
tecla para.entao, imprimir uma nova “pagina’\ £ importan- 
te lembrar que a impressao na 16? linha causa sempre o ro- 
lamento (SCROLL) da tela. 



Roberto Quito de Sant'Anna-RJ 



Se voce tem pequenas rot in as 
e programas utilitarios realmente 
uteis tomando poeira em seus 
disquetes ou fitas cassete, antecipe-se 
aos piratas e trate de divulga-los. 
Envie-os para a REDAQAO DA MICRO 
SISTEMAS-SEQAO DICAS: Rua 
Visconde Silva, n9 25, Botafogo, 

Rio de Janeiro-RJ, CEP 22281. 

Nao se esqueca de dizer para qua! 
equipamento foram desenvolvidos. Desta 
forma, sua descoberta pod era ser util 
para muitos e muitos, em vez de 
desmagnetizar-se com o tempo em 
suas fitas e disquetes. . . 



Ai vai uma dica para aqueles que tem um micro com resol ui;ao grafica 
capaz de executar incriveis desenhos, mas nao possuem uma impres- 
sora com recursos graficos para imprimir seus desenhos artisticos: 



Simulaqao 

de 

impressora 

grafica 



1000 
1 100 
1 200 
1 300 
1400 
1 500 
1600 



1 700 
1 800 
1 900 
2000 



INPUT "DESEJA IMPRIMIR"; R$ 

IF LEFTS ( R$ , 1 ) = "N" THEN END 
LPRINT TAB (20) "TITULO DO DESENHO" 
LPRINT 

FOR Y=0 TO 47 
FOR X=0 TO 127 

IF POINT ( X , Y ) THEN LPRINT "*"; ELSE 
LPRINT " " ; 

NEXT X : LPRINT " " : SET (0,Y) 



NEXT X 
NEXT Y 
LPRINT 
RETURN 



LPRINT "MENSAGEM OU DEDICATORI A" 



Nesta rotina, que pode ser incluida em qualquer programa, o carater a ser uti- 
lizado (no caso “*”) podera ser qualquer um. A instru^ao SET (0, Y), na linha 
1 700, permite que acompanhemos pelo video em qual linha a impressora esta. 
Agora e so maos a obra. . . de arte. 



FSbio Lopes Sampaio-RJ 




\ 
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Calculadora infaltvel 

Transforme seu micro numa calculadora e fa$a calculos 
matematicos, cientificos e ate mesmo financeiros, com esta 
dica que pode ser usada sozinha ou como rotina em seus 
programas : 



1 0 


INPUT 


A$ 


20 


CLS 




30 


PRINT 


A$ ; 


40 


GOTO 


10 



Agora digite RUN e depois que o cursor aparecer, escre- 
va a opera^ao como neste exemplo: 

OPERACAO ENTRADA RESULTADO NA TELA 

10-5 10-5 10-5 = 5 

(NEWLINE) 

Ruben Feffer-SP 



Linha TRS-80 (I) 



Corrigindo um NEW err ado 

As vezes, por descuido, teclamos NEW em um pro- 
grama em BASIC que queriamos salvar. Para corrigir 
este erro e recuperar o programa, e so ter o seguinte 
procedimento logo depois que errar: 

19 - Teclar POKE 17130,1’ 

29 — Digitar ‘SYSTEM’ 

39 — Responder ao *? Com 711395’ 

49 - Dar um ‘LIST' para ter certeza de que o programa 
voltou (nada de dar RUN!) 

59 — Digitar o comando ‘SAVE’ para gravar no cassete. 



Fernando Guimaraes de Lima SHva-RJ 



Geral 



Recuperando fitas de impressora 

Se voce tem uma impressora e esta querendo reduzir o 
consumo de fitas, veja como e simples recupera-las: basta 
fazer duas ou tres pequeninas aberturas estrategicamente 
distribuidas no cartucho plastico e injetar pequenas doses 
de um lubrificantc spray tipo Wp 40, ou similar, com o au- 
xflio do tubinho que acompanha o produto. 

Outra maneira seria levantar com cuidado um lado da 
tarn pa do cartucho e colocar o lubrificante diretamente. 
Mas e preciso ser muito cuidadoso porque se a fita escapar 
do cartucho, voce nunca mais vai conseguir coloca-la de no- 
vo. A quantidade de lubrificante deve ser defmida experi- 
mentalmente, um pouco de cada vez, e este processo pode 
.ser repetido de tres a cinco vezes. 



Troque os numeros 

Confunda os amigos do alheio , alterando graficamente 
todos os numeros do seu programa, sem no entanto alterar 
os valores desses numeros. Para tal, digite esta sub-rotina 
junto com seu programa principal e RUN 9990, e apos al- 
gum tempo de uma espiada na bagunga que ficou: 

9990 REM EDSON N YAMADA 

9992 FAST 

9993 LET 1=16514 

9994 LET F=PEEK 1 6396+256*PEEK 1 

6397 

9995 IF PEEK 1=118 OR PEEK 1=126 

THEN LET 1=1+5 

9996 IF PEEK I>=28 AND PEEK I<=3 

7 THEN POKE I , INT (RND*9)+28 

9998 LET 1=1+1 

9999 GOTO '9995 

Mas e importante observar duas restrisoes nesta dica 
contra espioes : nao a utilize em programas escritos em lin- 
guagem de maquina e tambem nunca EDITE uma linha alte- 
rada. Esta dica foi criada a partir da leitura atenta do artigo 
“Escondendo o jogo no TK82-C” (publicado em MS n9 22, 
pag. 36); se houver quaisquer duvidas.e so consultar o arti- 
go citado. 



Edson Noboru Yamada-SP 



Linha Sinclair 



SCROLL regional 

No artigo “Abrindo espaijo na tela” (MS n9 24, 
pag. 28), o autor da uma dica para aproveitarmos 
as duas ultimas linhas do video, afirmando que isto 
e feito apenas trocando a variavel DS-FZ, que con- 
te'm o valor do numero de linhas em branco na par- 
te inferior da tela (o normal seria 2), para o valor 0. 
Aproveitando estas informa^oes, apresentamos 
este programa. que faz um rolamento dos caracte- 
res somente da metade da tela para cima: 

1 FOR F= 1 TO 352 

4 PRINT "ED" ; 

5 NEXT F 

6 • POKE 16418,13 

7 SCROLL 

8 GOTO 7 

Assim, para fazer um SCROLL regional, basta 
dar um POKE 16418.X, sendo que X e igual a 23 
menos o numero de linhas que podem ser roladas. 
Mas e importante nao esquecer que X nunca deve- 
ra ter o valor de 0. 





Roberto Quito de Sant'Anna-RJ 



Edson Noboru Yamada-SP 










Os micros da I inha Sinclair podem auxilia-lo no estudo das assoc iapoes 
de resistores em circuitos eletricos. Ve/a so 

Uma aula sobre 
circuitos eletricos 

Simao Pedro P. Marinho 



P odemos encarar como realidade 
no Brasil a utiliza^ao do micro- 
computador no ensino, man- 
tendo as devidas proposes. 
As diversas experiencias ja realizadas 
nessa area estao mais voltadas para a 
inicia^ao do aluno, notadamente o de 
29 grau, nas linguagens (principalmente 
o BASIC) e no uso do aparelho, do que 
para a utiliza^ao do microcomputador 
como um recurso adicional de ensino 
(Marinho, s. d.). 

Este ultimo emprego nao tern sido o 
mais procurado e e exatamente nessa 
area que vemos um grande potencial 
ainda nao explorado, inclusive pela 
carencia de software. Tern sido destaca- 
do o papel dos professores e ai incluem- 
se, principalmente, os da area de Cien- 
cias Exatas, que deveriam ser encarrega- 
dos da elabora^ao desse software. 

Uma boa perspectiva que vemos da 
utiliza 9 ao do microcomputador como 
meio auxiliar no processo ensino- apren- 
dizagem, nao excluindo a utiliza^ao de 
outros recursos e nem identificando-o 
como um substituto para as carencias 
de recursos instrucionais (Seminario Na- 
cional de Informatica na Educa^ao, 
1982), encontra-se na CSI - Computer 
Supported Instruction. 

Na CSI, a simula^o e de significativa 
importancia (Chaves, 1983) e, embora o 
microcomputador n£o inove ao permitir 
a simula^o, ele a toma realizavel nas 
escolas de 19 e 29 graus, notadamente 
pelo seu reduzido custo (Piazzi, 1982). 



O programa (Holko, 1983) que apre- 
sentamos, adaptado para a linha Sinclair, 
e uma simula 9 ao no ensino de Fisica, no 
estudo das associa 9 oes tie resistores em 
circuitos eletricos. 

Nao 6 proposta que esse programa se- 
ja utilizado como substituto de uma pra- 
tica que possa ser desenvolvida em la- 
boratory, mas sua aplicabilidade e 
ampla. Piloto de uma serie de programas 
que esta sendo planejada na PUC-MG, 
ele e, antes de mais nada, uma tentativa 
de tomar disponiveis programas que 
possam ser utilizados no ensino, inclusi- 
ve como facilitador da intera 9 ao ho- 
mem-maquina. 



REVENDO A TEOR1A 

Existem fundamentalmente duas pos- 
sibilidades de associa 9 ao de resistores 
(dois ou mais) em um circuito:em serie 
e em paralelo. A combina 9 ao dessas 
duas modalidades determina a associa- 
9 §o dita mista. 

A principal caracteristica da associa- 
9 ao em paralelo e que o ddp (diferen- 
cial de potencial etetrico) entre os ter- 
minais de cada um dos resistores asso- 
ciados e o mesmo da associa 9 ao. A 
corrente i que chega ao ponto A sub- 
divides em tantas correntes quantos 
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sejam os resistores associados. Veja na fi- 
gura 1 um exemplo disso, onde indica- 
mos apenas duas correntes. 

As duas correntes (i|, que passa por 
Rl, e i 2 , que passa por R 2 ) somam-se 
no ponto B, de tal maneira que: 



Considerando que ddp (V^g) e o 
mesmo para os dois resistores, temos pe- 
la lei de Ohm que V^B = Rl*l = ^2*2 
Dai: 




Se substituirmos \\ e 12 em (I), tere- 
mos entao: 




donde: 




Pela lei de Ohm, temos V^B = Ri ou 

i = 1 (III) 




Agora, comparando (11) e (III): 



Generalizando, 




O PROGRAMA 

Apos a identifica 9 ao do programa 
(linhas 1 a 50) e a inicializa 9 ao das varia- 
veis (linhas 60 a 360), uma sub-rotina 
(linhas 1000 a 1750) monta o circuito 
com dois resistores de resistencias Ri e 
*2, apos o que sao impressas algumas 
indica 9 oes (linhas 380 a 465). 

A montagem do circuito e feita em 
velocidade maior (FAST) o que, obvia- 
mente, provoca o desaparecimento tem- 
pordrio de imagens. Se o usuario qui- 
ser acompanhar a montagem do cir- 
cuito, devera retirar a linha 1008 do 
programa. 

O programa estd preparado para que 
as resistencias (Rj e R 2 ) sejam initial - 
mente iguais a 100 ohms e a for 9 a ele- 
tromotriz (FEM) igual a 12 volts. Para 
evitar a divisdo por zero, se em algum 
momento os valores das resistencias ou 
da FEM forem iguais ou inferiores a 
zero, os valores iniciais (100 ohms e 12 
volts) serao restabelecidos (linha 500). 

Nas linhas 540 a 590, s£o feitos os 
cdlculos de corrente e resistencias no cir- 
cuito, em cada segmento, que sdo im- 
presos (linhas 600 a 660). Para que a 
aten 9 ao do aluno seja despertada antes 
de cada impressSo dos novos valores 



(isso se houve altera 9 ao em R|, R 2 ou 
VT), os valores anteriores sao apagados. 

Deve-se ter cuidado no momento de 
digitar os espa 90 s (usados para apagar os 
valores anteriores) nas linhas 600, 615, 
625, 635, 645 e 655. 

O programa permite (linhas 670 a 
890) que o usuario possa alterar, duran- 
te sua execu 9 §o, os valores tanto das 
resistencias (Rj e R 2 ) quanto de FEM. 
Essa altera 9 ao e feita digitando 6 ou 7 
quando o sinal representado por tres as- 
teriscos estiver piscando sob as indica- 
9 oes dos valores de R ou FEM. Cada 
vez que 7 e digitada, quando o sinal 
*** estiver sob os valores das resisten- 
cias, esses serao acrescidos em 10 ohms; 
no caso da voltagem, cada vez que a te- 
cla 7 e acionada, seu valor e acrescido 
em 1 Volt. A tecla 6 diminui as resisten- 
cias em 10 ohms e a FEM em 1 Volt. 

Apos a altera 9 ao, o microcomputa- 
dor executara novos calculos e indicara 
os novos valores de leitura de IT, 11 e 
12, que serao impressos, alem de corrigir 
os valores de VI, V2, resistencias (Rl e 
R2)e FEM(VT). 

Para parar o programa, deve-se digi- 
tar BREAK. Tinha o cuidado de, apos 
o BREAK, nao digitar CONT (se quiser 
rodar o programa, digite RUN). Isso 
porque o circuito e impresso em uma 
sub-rotina (linhas 1000 a 1750) e, de- 
pois disso, o programa roda em um loop 
(entre as linhas 500 e 900) e, portanto, 
o CONT permitira que sejam reiniciados 
os calculos com as impressoes dos novos 
valores, mas nao permitira a impressao 
de novo circuito. 

Para gravar em fita ou carregar apos a 
grava 9 ao, digite SAVE ou LOAD, acom- 
panhado de SIMULACAO I. 

_ FONTES 
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- CHAVES, E. O. C., Computadores: 
mdquinas de ensinar ou ferramentas 
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- HOLKO, D. A., Simulated circui- 
ts. Creative comput, 9(4):2 1 8-22, 
1983. 

- MARINHO, S. P. P., Microcomputa- 
dor - um novo recurso na escola 
(para publica 9 §o). 
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-31, 1982. 

- Seminirio Nacional de Informati- 
ca na Educa 9 $o, 1 e 2., Brasilia e Sal- 
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Simao Pedro P. Marinho 6 professor titular 
do Departamento de Ci6ncias Bioldgicas da 
Pontifida Universidade Catdlica de Minas Ge 
rais. 
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IMPRESSORA 

PARA 

CP-300 



Agora voce j£ pode ter uma impressora pa- 
ra o seu CP - 300. 

Com a Interface DW 121 /CP voce pode 
utilizar uma miquina de escrever 
OLIVETTI Eletrdnica ET 121 como im- 
pressora de textos ou programas, sem 
alterar as caracterfsticas originais da ma- 
quina ou do Micro. 

Instalada intemamente na maquma de es- 
crever, a Interface permite uma s6rie de 
recursos especiais para a confecoao de tex- 
tos, tais como: sublinhamento automiti- 
co, negrito autom^tico, comprimento de 
linha program^vel e outros. 

Solicite maiores informapdes a 

□wsv Wheel eie^a 

Industria e Comercio Ltda. 

Uma Divisao da ESFEROMAC Ltda 
Rua Antonio Comparato, 200 
Tels.: 532-01 54 e 240-4829 
CEP 04605 - Sao Paulo - SP 



ICRO PROCESS 

COMPUTADORES LTDA. 



MICROCOMPUTADORES T K 2000 85/ 83 
CP. 500/ 300/200 APPLES 
MONITORES. IMPRESSORAS PAPEL, 
FITAS. DISKETTE, ETC 
MANUTENCAO EQUIPAMENTOS 
(AVULSOE P/ CONTRATO) 

PROGRAMAS DE CONTABILIDADE. 
ADMINISTR. IMOVEIS. 

ELABORACAO DE PROGRAMAS 
ESPECIAIS 

PERSONALIZAQAO DE PROGRAMAS 
PARA FIRMAS E PROFISSIONAIS 
LIBERAIS 

CONTROLE DE CLIENTES. TRATAMENTOS 
E CONTAS PARA CONSULTORIOS 
MEDICOS EDENTARIOS 
PACOTES DE PROGRAMAS PARA 
ADVOGADOS. E CORRETORES DE 
VALORES EAC0ES 

OFERTAS ESPECIAIS (ORTNI 

• SUPERVISICAL l APPLE) (CP 500 23 ) 20 

• OPEN MARKET/OVERNIGHT 

i C P 500 23 1 50 

• CARTEIRA DE ACdES (CP 500/23) 40 

• CONTROLE DE OCORRENCIA 
PROCESSUAIS (CP. 500 APPLE) 100 
VIDEOGAMES 

(APARELHOS E CARTUCHOS) 

REVISTAS. PUBLICACOES TECNICAS 
PRECOS DE SAO PAULO 
DESPACHAMOS VIA VARlG POR NOSSA 
CONTA 

AMPLO FINANCIAMENTO 

TEL.: 64-0468 
Alameda Lorena, n° 1310 
CEP 01424 - Sao Paulo 

"ESTACI0NAMENT0 PARA CLIENTES— 
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Simulagao em Ftsica I 



J 



1 REM *********************** 

2 REM SIMULACAO EM FISICA I 

3 REM 

4 REM S . P . P . MARINHO 

5 REM DEP . CIENCIAS BIOLOGICAS 

6 REM PUC-MG 

7 REM CAIXA POSTAL 2686 

8 REM 30000-BELO HORIZONTE/MG 

9 REM *********************** 
10 REM "SIMULACAO I" 

15 REM IMPRIME IDENTIFICACAO D 
0 PROGRAMA 

20 PRINT AT 4/4; "SIMULACAO EM 
FISICA I" 

30 PRINT AT 7,5; "CIRCUITOS ELE 
TRICOS" 

40 PRINT AT 14,9; "CIRCUITO CO 
M" 

50 PRINT AT 1 5, 3; "RESISTENCIAS 



EM ! 


PARALELO" 




55 


REM 


INICIALIZA VARIAVEIS 


60 


LET 


A=PI/PI 


70 


LET 


B=VAL 


"6" 


80 


LET 


C=VAL 


"8" 


90 


LET 


D=VAL 


"11” 


100 


LET 


E = VAL 


" B * 2 " 


110 


LET 


F=VAL 


"13" 


120 


LET 


G=VAL 


"15" 


130 


LET 


H=VAL 


" 2*C" 


140 


LET 


I =VAL 


"C+E" 


150 


LET 


J =VAL 


"B+G" 


160 


LET 


K=VAL 


"D* 2 " 


170 


LET 


L=VAL 


"D+E" 


180 


LET 


M=VAL 


"E+F" 


190 


LET 


N=VAL 


"D+H" 


200 


LET 


0=VAL 


"G+H" 


210 


LET 


P=VAL 


"F+I" 


220 


LET 


Q=VAL 


"F+K" 


230 


LET 


R = VAL 


"E+M" 


240 


LET 


S=VAL 


" I *2" 


250 


LET 


T=VAL 


" J*2" 


260 


LET 


U=VAL 


" I+L" 


270 


LET 


V=VAL 


" B*C" 


280 


LET 


W=VAL 


" N # 2 " 


290 


LET 


X=VAL 


"1*3" 


300 


LET 


Y =VAL 


"J*3" 


310 


LET 


B $ = " R 1 




320 


LET 


C$*="R2 


* 


330 


LET 


D$= "FEM” 


340 


LET 


E$= "VOLTS" 


350 


LET 


F$= " AMP" 


360 


LET 


G$=" ***" 


365 


REM 


DIRIGE 


PARA SUB-ROTINA 


370 


GOSUB 1000 




375 


REM 


IMPRIME INDICACOES NO ( 



IRCUITO 



380 


PRINT 


AT 


5 , 5 ; FS 


390 


PRINT 


AT 


5, 14;F$ 


400 


PRINT 


AT 


D, 1 ;E$ 


410 


PRINT 


AT 


D,H;E$ 


420 


PRINT 


AT 


D , 26 ; D$ 


430 


PRINT 


AT 


2,K;F$; " TOTAL" 


440 


PRINT 


AT 


I,A;B$;"=" 


450 


PRINT 


AT 


I , E;C$ ; 


460 


PRINT 


AT 


I , 2*E ; D$ ; " 


465 


REM INDICA RESISTENCIA E VO 



LTAGEM INICIAIS 
470 LET RU100 
480 LET R2= 1 00 
490 LET VT= 1 2 

495 REM VERIFICA SE R1,R2 OU VT 
SAO IGUAIS OU MENORES QUE ZERO 
500 IF R 1 < =0 OR R2< = 0 OR VT<=0 
THEN GOTO VAL ”470" 

505 REM IMPRIME VALORES DAS RES 
ISTENCIAS E VOLTAGEM 
510 PRINT AT I , 4 ; R 1 ; " OHM " 

520 PRINT AT I,15;R2;" OHM " 

530 PRINT AT I,28;VT;" V ” 



535 REM CALCULA VARIACOES NO Cl 
RCUITO 

540 LET VI =VT 
550 LET V2=VT 

560 LET RT=INT ( R 1 *R2/( R1 +R2 ) * 1 
000)/1000 

570 LET IT=INT ( VT/RT* 1 000 )/1 00 

0 

580 LET 1 1 = INT (VI /R 1*1 000 ) / 1 00 

0 

590 LET 1 2 = INT ( V2/R2* 1 000 ) /I 00 

0 

595 REM IMPRIME MEDIDAS 



600 


PRINT 


AT 


3,24;" 


610 


PRINT 


AT 


3, 24; IT 


615 


PRINT 


AT 


7,4;" 


620 


PRINT 


AT 


7 , 4 ; 1 1 


625 


PRINT 


AT 


7.13;" 


630 


PRINT 


AT 


7 , 1 3 ; 12 


635 


PRINT 


AT 


F , 2 ; " 


640 


PRINT 


AT 


F, 2 ; VI 


645 


PRINT 


AT 


F , 1 7 ; " 


650 


PRINT 


AT 


F, 1 7 ; V2 


655 


PRINT 


AT 


F, 26 ; " 


660 


PRINT 


AT 


F, 26 ; VT 



665 REM IMPRIME ORIENTACOES PAR 
A ALTERAR RESISTENCIAS E/OU VOLT 
AG EM 

670 PRINT AT 0,0;"DIGITE 7 P/ A 
UMENTAR" 

680 PRINT AT 1,0;" 6 P/ D 

IMINUIR" 

685 REM PERMITE USUARIO ALTERAR 
VALORES DAS RESISTENCIAS OU DA 
VOLTAGEM 



690 


FOR Z=1 TO 10 






700 


PRINT AT J , 4 ;G$ 






710 


LET A$=INKEY$ 






720 


IF LEN A$=0 THEN PRINT AT 


J 


, 4 ; " 


" 






730 


IF A$=" 7" THEN LET 


R 1 =R 1 + 1 0 


740 


IF A$="6" THEN LET 


R 1 =R 1 - 


10 


750 


NEXT Z 






760 


FOR Z=1 TO 10 






770 


PRINT AT J,G;G$ 






780 


LET A$=INKEY$ 






790 


IF LEN A$=0 THEN PRINT AT 


J 


»G; " 


ft 






800 


IF A$="7" THEN LET 


R2-R2+ 1 0 


810 


IF A$="6" THEN LET 


R2=R2- 


10 


820 


NEXT Z 






830 


FOR Z=1 TO 10 






840 


PRINT AT J , N;G$ 






850 


LET AS-INKEY5 






860 


IF LEN A$=0 THEN PRINT AT 


J 


» N; " 


ft 






870 


IF A$="7" THEN LET 


VT=VT+ 1 


880 


IF A$= " 6 " THEN LET 


VT=VT- 


1 


890 


NEXT Z 






900 


GOTO VAL "500" 






1000 


CLS 






1005 


REM MONTA CIRCUITO 






1008 


FAST 






1010 


FOR Z=U TO Y 






1020 


PLOT Z , 4 1 






1030 


PLOT Z , 34 






1035 


NEXT Z 






1040 


FOR Z=B TO I 






1050 


PLOT Z , 34 






1060 


PLOT Z , 26 






1065 


NEXT Z 






1070 


FOR Z=L TO R 






1080 


PLOT Z , 34 






1090 


PLOT Z , 26 






1095 


NEXT Z 






1100 


FOR Z=A TO E 






1110 


PLOT Z,K 






1120 


PLOT Z , 1 4 






1125 


NEXT Z 







1 1 30 FOR Z=0 TO U 
1 140 PLOT Z,K 
1150 PLOT Z, 14 
1155 NEXT Z 
1 160 FOR Z=V TO X 
1170 PLOT Z,K 
1 180 PLOT Z, 14 
1 185 NEXT Z 
1 190 FOR Z-K TO T 
1200 PLOT Z , 38 
1205 NEXT Z 
1210 FOR Z=E TO O 
1220 PLOT Z , 36 
1225 NEXT Z 
1230 FOR Z=B TO G 
1240 PLOT Z , 24 
1250 PLOT Z,E 
1255 NEXT Z 
1260 FOR Z=28 TO R 
1270 PLOT Z , 24 
1280 PLOT Z,E 
1285 NEXT Z 
1290 FOR Z=K TO W 
1300 PLOT Z,C 
1305 NEXT Z 
1310 PLOT K , R 
1320 PLOT E,Q 
1330 PLOT E,D 
1340 PLOT 0,Q 
1350 PLOT 0,D 
1360 PLOT B,L 
1370 PLOT R,L 
1380 PLOT B , F 
1390 PLOT R , F 
1400 PLOT K , C 
1410 PLOT K , 9 
1420 FOR Z=E TO M 
1430 PLOT H,Z 
1440 PLOT N,Z 
1445 NEXT Z 
1450 FOR Z=E TO O 
1460 PLOT Z, 10 
1465 NEXT Z 
1470 FOR Z=Q TO S 
1480 PLOT U,Z 
1490 PLOT Y,Z 
1495 NEXT Z 
1500 FOR Z=N TO P 
1510 PLOT B,Z 
1520 PLOT I,Z 
1530 PLOT L,Z 
1540 PLOT R,Z 
1545 NEXT Z 
1550 FOR Z=G TO J 
1560 PLOT A , Z 
1570 'PLOT E,Z 
1580 PLOT 0,Z 
1590 PLOT U,Z 
1600 PLOT V,Z 
1610 PLOT X,Z 
1615 NEXT Z 
1620 FOR Z=C TO F 
1630 PLOT W,Z 
1635 NEXT Z 
1640 FOR Z=L TO P 
1650 PLOT W,Z 
1655 NEXT Z 
1660 FOR Z=H TO J 
1670 PLOT G,Z 
1680 PLOT H,Z 
1690 PLOT N,Z 
1700 PLOT 28, Z 
1710 PLOT 1 7 , Z 
1720 PLOT 26, Z 
1725 NEXT Z 

1730 PRINT AT D,9;"<";B$ 
1740 PRINT AT F,10;C$;">" 
1745 SLOW 
1750 RETURN 
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PRH 

CONSULTORES 



Assessor ia em Processamento de 
Dados 

Desenvolvimento de Programas 

PROGRAM AS PRONTOS 

(TRS-80-III — diskette) 

• Emissao de Carnes 

• Controle de Convenios 

• Processamento de Cadastros 

• Historico Medico 

• Mala Direta 

• Lista de Pregos com Reajuste 
Automatico 

• Cadastro de Artigos de Re- 
vistas el ou Livros 

• Cadastro de Clientes 



PRH Consultores 
Rua Mexico, 70— Grupo 810 811 1 
(Centro-RJ Tel.: (021)220-3038 




m.5. Services 



w&chtp 



APPLE II 



COMPUTACAO 









Rua Miguel I.etnos nV 41 
sala 606 - Copacabana 
Tel.: 227-8803 
Rio de Janeiro - RJ. 



Transformagao PAL-M 
Assistencia Tecnica 
Expansoes 



UNITRON 



Assistencia Tecnica 
Autorizada 
Vendas • Leasing 
Expansoes 



MICROEQUIPO 



Manutengao 
na sua empresa 

Av. Marechal Camara. 271/101 
Rio de Janeiro Tel.: 262-3289> 



rSiMcPaift^acel 



0 lugar compativel 
com voce e seu 

micro. 

jf — Micros 

1 — Acessorios 

— Software 
— Livros 
— Revistas 



Rua Dias da Cruz, 215 
| s/804 — Rio de Janeiro— RJ i 
Tel.: 594-2699 



a bits e Bins 

COMPUTADORES 



• VENDAS 

• ASS. TECNICA 
ESPECIALIZADA 

• PROGRAMAS 

• DISKETTES 

• FIT AS 

• SERVICOS 

• CURSQS DE BASIC 

• FORM ULARIOS 



ICONSERTOS EM 24 HORAS| 
(COM GARANTIA) PARA 
O CP-500 e DGT-100 



EM SAO CONRADO 
Estrada da QAvaa, 642 
L|. B Tel.: 322-1960 



./Micro 

Sistemas 



PROBUEMAS 
COM SUA 
ASSINATURA? 

Esc rev a para o nosso Departa- 
mento de Assinaturas do Rio ou 
Sao Paulo e envie, para facilitar, 
a sua etiqueta adesiva de remes- 






Rua Visconde Silva. 25 — Bota- 
fogo - Rio de Janeiro — RJ — 
CEPI 22281 - Tels : (021) 286- 
1797. 246-3839 e 266 0339. 

Ai Gabriel Monteiro da Silva. 
1227 - Jardim Paulistano — Sao 
Paulo - SP - CEP I 01441 - 
Tel (011)853-3800. 



No Recite, visite 

TELEVIDEO (’) 

O Lojao de Intormatica mais 
descompiicado do pais 1 
Micros, perifericos. supnmen- 
tos. Software. Cursos Livros e 
Revistas. Componentes Eietro* 
nicos. Pegas e Som 



PREQ0S ESPECIAIS 
FINANCIAMENTO PR6PRI0. 



Compre pessoaimente ou peio 
Reembolso Postal. 

TELEVIDEO LTDA. 

R. Marques do Herval, 157 
Tel.: (081)224-8932, 
(50000) Recife, PE 



(') Sr. Industrial: distribuimos seu 
produto nas melhores condi^oes. 
Contato em Sao Paulo: Tel.: (Oil) 
220-7377 (Sr. ANDERSON - Mun- 
disom) 



M I K R O S’ 
AGORA NO 
LEBLON! 

| Av. Ataulfo de Paiva 566 - Loj* 211 | 
Rio de Janeiro — Tel.: 239-2798 



APROVE1TE OS PRECOS 
"INOUVEIS" DA ‘MIKROS 
DO LEBLON, EM SUA EPOCA 
DE 1NAUGURAQAO. 



MICROCOMPUTADORES 



NAJA — JR-SYSDATA — UNITRON 
COLOR 64 — APPLE-TRONIC 
CP-200 — CP- 300 — CP-500 
TK-83 — TK-85 — R1NGO 



SISTEMAS 



SOFTWARE (NAC. E IMPORT ) 
IMPRESSORAS E PERIFERICOS 
CURSO DE BASIC 



PROFISSION A1S 
ALI A MEN TE ESPEC1ALIZADOS 
PARA ATENDE-LO 



DATAMICRO 



VENDA DE 

MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 
CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 



SUPRIMENTOS 

Disquete. fitas. form continuo 



CONSULTORIA DE SISTEMAS 

Diagnostico e apoio a dectsao 



CURSOS E TREINAMENTO 

Introdugao aos microcomputadores 
Linguagem Basic 
Aplicagao dos micros 
na Engenharia 

Microcomputadores para criangas 

INSCRIQOES ABERTAS 

Livros e revistas especializados 



Vise, de Piraja, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 
Tel.: (021) 274-1042 
DESPACHAMOS PARA 
TODO O BRASIL 



Alfa Bit. 
CLUBE DE C0MPUTAQA0 



Associe-se ao ABCc e ganhe Anuncio GRA- 
TIS. um exemplar de ALFABIT e DESC0N- 
T0S de 10% na compra de LIVROS. REVIS- 
TAS, CURSOS e PROGRAMAS aiem de 

— Servigos de "Reprinters e Consuttas 

— AssociagSo a Clubes Europeus 

— Participant! em Cursos, Congressos e 
Concursos 

— Novos Langamentos a PREQ0S REDUZI- 
D0S (Breve IMPRESSORA DE AGU- 
LHAS P/MINI-MICROS DE LOGICA SIN- 
CLAIR - Langamento "Digital Eletrd- 
nica*') 

ANUIDADE: CrS 1 000 (hum mil cruzeiros) 
somente ao receber seu Cartao-Descontos e 
um exemplar de "Alfabit" 

Envie nome. enderego. prolissao e texto do 
seu anuncio (caso queira publicagSo ime- 
diata) 



N 0 V I D E I A (*) 

Comunicagao e Informitica Ltda. 
CAIXA POSTAL 9978 
CEP 01051 - Sao Paulo. SP 



(*)Comercializamos seu proie* 
to-Soft ou Hard. Escreva*nos 



PRODUTORES DE SOFTWARE 

Empresa de processamento de dados em fase de 
expansao em microinformStica esta selecionan- 
do e adquirindo software de boa qualidade, em 
linguagem fonte, para microcomputadores das 
linhas APPLE, CP/M e para os compatfveis com 
PC-IBM. 

Pede-se aos autores interessados remeterem a 
relagao de seus sistemas para "GOOD IDEA" 
a/c desta revista. 

ALAMEDA GABRIEL MONTEIRO DA SILVA 
n? 1227 - JARDIM PAULISTANO - S.P. 
CEP: 01441 















A p render a fracionar visualizando o todo e as partes fica bem mais facil, 
principahnente quando o quadro-negro se trans forma na tela de um micro TRS-80 



1 / 5 , 2 / 3 , 7 / 12 ... 

A tela, para aprender fracoes 



Heber Jorge da Silva 



E nsinar fragoes as criangas em 

idade escolar e o objetivo deste 
programa, que roda em 
qualquer micro da linha 
TRS-80 com 16Kbde RAM. 

0 programa plotara no video uma 
area dividida aleatoriamente em ate 12 
partes, enumerando-as uma a uma, o 
que ira determinar o denominador da 
fragao. Em seguida, preenchera um 
numero aleatorio dessas divisdes, o 
que representara o numerador da 
fragao. A partir dai, o computador 



pedira a crianga para entrar com a 
fragao correspondente a area plotada. 

0 programa aceitard respostas de 
diversas maneiras. Por exemplo: se a 
resposta correta e 8/12, a crianga podera 
responder com 2/3, com 4/6 ou ainda 
com o proprio 8/12. Se a resposta for 
uma das ultimas, o programa fara a 
simplificagao para 2/3, mostrando-a 
no video. 

Sempre que a resposta da crianga for 
incorreta, o computador emitira uma 
mensagem de erro e pedira uma nova 



resposta atd obter a correta. 

Observagao: quando da digitagao do 
programa, as linhas com instrugdes 
REM poderSo ser ignoradas, uma vez 
que o programa nao faz enderegamento 



as mesmas. 



Formado em Administrate) de Empresas pel a 
UDF , Heber Jorge da Si/va trabalha atua/men- 
te na Telebrasi'lia , onde exerce atividades //- 
gadas a programa to de microcomputadores. 



Aprendendo fracoes 

10 REM ********* ****#***#***##******#*#**#**#**#*#******* 

20 REM ** APRENDENDO FRACOES ** 

30 REM ** POR HEBER J SILUA - BRASILIA DF - NOV/83 ** 

40 REM ************************************************** 

50 RANDOM 

60 REM ** est abe 1 ecendo valores para o numerador e denominador 
70 A-RND ( 12) 2 B = RND ( 12) 

80 IFA >B THEN70 

90 REM ** D=numero de pontos horizontal* que devera' ter cada divisao 
100 REM ** S=ponto central de cada divisao 
110 D=120/B :S=D/2 

120 CLSsPRINTTAB (20 ) "** APRENDENDO FRACOES **" : GOSUB 430 

130 REM ** delimitando as divisoes 

140 F0RX=4T0124STEPDsSET<X y 3) SSET(X, 19) SNEXT 

150 REM ** numerando as divisoes 

160 P = 4494S/2:F0RI = 1T0B sPRINT8P r I - 2 P = P +S : NEXT I 

170 REM ** L=distancia a ser preenchida (numerador) 

180 L=A*D+4 

190 REM ** preenchendo a area do numerador 

200 F0RX=4T0L:F0RY=4T0i8:SET<X, Y) : NEXT Y . X : F0RX=4T0LSTEPD s FOR Y = 4T0 1 8 : RESET < X . Y ) 2 N 
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EXTY y X 

210 PR I NT 3530 y "ESCREVA A FRACAO..." 

220 REM ** captando resposta (numerador) 

230 PRINT3652, "Numerador ====> " • 2 INPUTN 

240 PR I NT 87 36 , " "2 IFERTHENPR INT0801 y M2 GOT 0280 

250 REM #* captando resposta (denominador) 

260 PR INT3780 y "Denom i nador ====> " • 2 INPUTM 

270 REM ** testa resposta p/ numerador 

280 IFN=A0R(N=1ANDM=B/A)0R ( N=A/2ANDM=B /2 ) OR ( N=A/3ANDM=B /3 ) OR ( N=A/4 ANDM=B /4 ) THEN3 
OOELSEPR INT"V0CE ERROU 0 NUMERADOR GOSUB 450 2 PR INT3673 y " " ; 2 ER = - 1 s G0T021 0 

290 REM ** testa resposta p/ denominador 

300 IFM=B0R ( M=B/AANDN=i ) OR ( M=B/2ANDN=A/2 ) OR ( M=B/3ANDN=A/3 ) OR ( M=B/4ANDN=A/4 ) THEN3 
20ELSEPR INT"V0CE ERROU 0 DENOMINADOR !..." s G0SUB450 2PR INT3801 y " "-2G0T0260 

310 REM ** tudo certo 

320 PRINT2F0RT = iT0602PRINTa)918, "##### ### M##" • 2 PR INT3918 y "MIJI TO BEM !!!"-:NEXTT 
330 REM ** da' para simplificar denom. /num. ? 

340 I F N < >1ANDM/N=INT(M/N)THENM=M/N2N = N/N2G0T0410 
350 REM ** da' para simplificar por 3 ? 

360 IFN/3=INT(N/3) ANDM/3=INT ( M/3 ) THENM=M/3 2 N=N/3 2 G0T04 10 
370 REM ** da' para simplificar por 2 ? 

380 X=INT(N/2)*22 Y=INT ( M/2 ) *2 2 IFX=NAND Y=MTHENN=N/2 2 M=M/2 2 E=2 2 G0T0380 
390 IFE=2THEN4 1 OELSEGOSUB 450 2G0T0460 
400 REM ** mostrando fracao simplificada 

410 I-N 2 J=M 2 PRINTa 742 y "<== SIMPLIFICANDO . . . " - 2 F0RT = 1T060 s PR INT3673 y " : PR I NT 

S 8 0 1 y " " • 2 PR INT 3673 y I ; 2 PR INT3801 y J ; 2 NEXTT 2 GOSUB 450 2 G0T0460ELSEG0SUB 450 2 G0T04 

60 

420 REM ** plota area a ser dividida 

430 F0RX=4T01242F0RX=4T01242SET(X y 4) 2SET(X y 18) 2NEXT- 
440 F0RY=4T0182SET(4 y Y) 2 SET ( 124 y Y ) 2 NEXTY 2 RETURN 
450 F0RT=1T010002NEXT 2RETURN 

460 PR INTa 970 y "TECLE QUALQUER TECLA PARA CONTINUAR " - 2 IFINKEYS> = ,, "THEN460ELSERUN 

m 




Chame 



nao pode 
parar 






Assistencia 
■ Vital em 

microeletrOnica 



Quem trabalha em processamento de dados, sabe estende desde check-ups preventives ate a substituigao de pe 



que as melhores decisoes vivem no mesmo ritmo da 
pulsagSo de um microcomputador 
Se ele para, grandes negocios podem ser perdidos 
Por isso, n3o deixe qualquer um colocar a 
m£o no seu micro 

A MS trabalha desde 1971 em assistencia 
especializada em microcomputagao que se 



Representante no Brasil da MDS 
Mohawk Data Sciences/MSI 
Data Corporation 



Emmy 



gas, de unidades perifericas ou do proprio micro durante o tem- 
po em que ele estiver em reparo Tudo isso e feito atraves de 
contratos que garantem o f uncionamento integral do sistema 

Faga como as grandes empresas: Varig, Petrobras. Agos 
Villares, Abril Cultural e outras. 

Palavra de quem cuida do seu micro como se cuidasse 
da propria vida da sua empresa 

MS - Assistencia T6cnica a 
A\W Microcomputadores 

Rua Astolfo Araujo. 521 - Tel 549-9022 
CEP 04008 -S Paulo - Capital 
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Curso de 
Assembler - XIV 




N 

ultima li^'ao, cstudamoso grupo do JUMPS c cspcro quo 
ate agora voce nao tenha duvidas c ja tenha testado alguns programas 
Assembler. Nesta li^ao, vamos conheccr o grupo de CALL e RETURN. 
I stas instru^oes realizam as mesmas funv'oes que as instru^ocs GOSUB/ 
RETURN do BASIC. As instru^oes que compoem cstc grupo sao as se- 
guintes: 

I - CALL Incondicional 
Formato: CALL nn 

Operaqdo Desvia o fluxo do processamento para o cndcreqo nn c 
cxecuta as instru^oes a partir deste cndcrc^o ate encon- 
trar uma instru^ao RETURN, quando entao rctoma para 
a instrucao seguintc a instrupao CALL nn. 

Cddigo Objeto : 

CALL nn 



CD 



Exemplo: 



CALL 40A4 H 




Descriqao : Apos salvar o contcudo corrcnte do Program Counter (PC) no 
Stack , carrcga no Program Counter (PC) o operando nn. A 
proxima instrucao a ser executada pelo microprocessador 
eneontra-se no cndcrcgo nn e o topo do Stack contem o 
cndcrcgo de retorno da sub-rotina. Lembre-se de que o pri- 
meiro operando dos dois operandos nn e o endereqo de 
baixa ordern (LSB), enquanto que o segundo operando e o 
operando de alta ordern (MSB). 

CALL 40A4 H ► CD A440 



MSB 



LSB 
CALL 

Na cxecuQao desta instrucao, o microprocessador efetua as seguintes 
operates : 





( SP- 1 ) ◄ PC 

H 

( sp-2 PC L 



Ciclos de maquina (M): 5 
States (T): 17(4, 3, 4. 3,3) 

Flags afetadas: Ncnhuma. 

Exemplo: A rotina a seguir mostra no video o conteudo da posi^ao 
0000H de memoria. 



OCtOO t TESTE DA FUNCAO CALL NN 
033A 00110 VIDEO EOU 033AH 

4020 00120 DOS EOU 4O20H 

3200 00130 ORG 3200H 

3200 2AOOOO 00140 1NIT LD ML, (OOOOH) 

5203 7C 00130 LD A,H 

3204 C DoES 2 00160 CALL ASC. 

5207 70 00170 LD A, L 

5209 C DOE 32 00 1 BO CALL ASC 

3200 C32D40 00190 JP DOS 

320E F3 00200 ASC PUSH AF 

320F OF 00210 RRCA 

5210 OF 00220 RRCA 

3211 OF 00230 RRCA 

3212 OF 00240 RRCA 

5213 CD1732 00230 CALL ASC 2 

3216 Fi 00260 POP AF 

5217 E60F 00270 ASC 2 AND OFH 

3219 C630 00290 ADD A. 30H 

3219 FE3A 00290 CP SAM 

52 ID 3902 00300 JR C.DISP 

321F C607 00310 ADD A, 7 

3221 CD3A03 00320 DISP CALL VIDEO 

5224 C9 00330 RET 

3200 00340 END 1NIT 

OOOOO TOTAL ERRORS 
34318 TEXT AREA BYTES LEFT 



1PONTO DE CARGA 

1HL < CONTEUDO DE OOOCm 

5 A < - CONTEUDO DE M -SI- 

1DISF-LAV NUMERC EH "C»* 

|A <- CONTEUDO DE L <lSB< 

i D I SPLAY NUMERO EH -CIA 

IRETORNA AO DOS 

ISALVA AF NO STACK 

S SHIFT 

(BITS 0-3 

I NOS 

I BITS 4-7 
tCALCULA l. DIG! TO 
I REST AURA AF 
I ZAP O -3 
10 ATE 9 
ICOMPARA SE A < 3AH 
1 DISPLAY SE KNOR 
JAJUSTA PARA * A' ATE *F 
1 DISPLAY CONTEUDO DC A 
I PETORNA A CHAHAOA 



2 - CALL Condicional 
Formato: CALL cc, nn 

Operaqdo: Desvia o fluxo do processamento para o endcreco nn. se 
a condigao cc for verdadeira. e cxecuta as instru^ocs 
a partir deste endereqo ate encontrar um RETURN. Sc 
a condi^ao for falsa, ignora a instrucao CALL e conti- 
nua a execu^ao do programa no scu fluxo natural. 



Cddigo Objeto: 




Exemplo: 

CALL Z , 4 0 A 4 H 



1 


— 

1 


— 

0 


— 

0 


— 

1 


r - 1 

i 


r— 

0 


0 


-► 


cc 


1 


f" 1 
0 

1 - J 


p™"H 

1 

J 


0 

J 


0 

h - -1 


i 


0 


0 


— ► 


A 4 


0 


1 1 

1 

] 1 


' 1 
0 


1 1 

0 

1 


0 


0 

L_ 


0 


0 


— ► 


40 
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onde cc identifica a condi^ao da flag a ser testada. Veja a figura 1. 



000 


para 


c c 


= 


Flag 


NZ 


nj 

II 

o 


00 1 


para 


c c 


= 


Flag 


Z 


<Z = 1 ) 


0 1 0 


para 


c c 


= 


Flag 


NC 


^x. 

o 

II 

o 


0 1 1 


para 


c c 


= 


Flag 


C 


( C=1 ) 


100 


para 


c c 


= 


.Flag 


PO 


(P/ V=0 ) 


101 


para 


c c 


= 


Flag 


PE 


(P/V=1 ) 


1 1 0 


para 


c c 


= 


Flag 


P 


4^ 

O 

II 

to 


1 1 1 


para 


c c 


= 


Flag 


M 


( S= 1 ) 



Figura 1 



Descriqao: Recupera o endereqo colocado no Stack pela instrucao 
CALL e carrega no Program Counter (PC). A proxima 
instrucao executada sera a instrusao seguinte a instru 9 ao 



RET PC L ^ — (SP) 

pc h ^ — ( SP+ 1 ) 

Ciclos de mdouina (M): 3 

States (T): 10(4, 3, 3) 

Flags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Program Counter (PC) e 3535H, o 
conteudo do Stack Pointer e 2000H, o conteudo da posi- 
9 ao de memoria 2000H c B5H e o conteudo da posi<;ao de 
memoria 2001 H e 18H. Apos a execu^ao da instrucao 
RET, o conteudo do Stack Pointer (SP) sera 2002H c o 
conteudo do Program Counter (PC) sera 18B5H. 

Podemos compreender melhor a operaijao da instnn^ao RET pelo 
exemplo a seguir: 



Descriqao: Sc a condigao cc c verdadeira, esta instrucao salva o con- 
tcudo corrcnte do Program Counter (Ft) no Stack e 
carrega no Program Counter (PC) o operando nn. A 
proxima instrucao que sera executada pelo microproccs- 
sador encontra-se no endereqo nn, e o topo do Stack 
contem o endereqo de retorno da sub-rotina. Se a condi- 
9 ao cc 6 falsa, o Program Counter e incrementado nor- 
maimente, e o programa continua na proxima instrucao. 

CALL / , 4 0 A 4 H 





4 - RETURN Condicional 
Formato: RET cc. 

Operaqdo: Retorna ao ponto de chamada de uma sub-rotina, cfetua- 

da por uma instrucao CALL, se a condiqao testada for ver- » 
dadeira. 



e ■jqulm ( W ) | States (T) 



> 17(4,), 4, 3) 



* I 10(4,),)) 

Flags afetadas: Nenhuma. 

Exemplo: Se a flag C no registrador F esta ressetada, o contcudo do 
Program Counter (PC) e 1A47H, o conteudo do Stack 
Pointer e 3002H e as posiqoes de memoria tern o seguinte 
conteudo: 



posigAo 


CONTEUDO 


1 A47 


H 


D 4 


H 


1 A48 


H 


35 


H 


1 A49 


H 


2 1 

1 


H 



Entao, quando o microprocessador efetuar o proximo FETCH, en- 
oontrara D43521, que equivale, em mneumonico, a seguinte instrucao: 

CALL NC , 2 1 3 5H 

Apos a cxccuqao da instrucao, o contcudo do endereqo de memoria 
300 1H sera 1 A H, o conteudo da posiqao 3000H sera 4 AH e o contcu- 
do do Stack Pointer sera 3000H. O contcudo do Program Counter 
serf 2135H, apontando para o primeiro byte da sub-rotina que deve ser 
executada. 

3 - RETURN Incondicional 
Formato: RET 

Operaqdo: Rctorna ao ponto de chamada dc uma sub-rotina cfetua- 
da por uma instrucao CALL 

Cddigo Objeto: 

RET 



C 9 




Ciclos d 

condl^ao 
v e r d a d e I r a 

conditio 

falsa 
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Cddigo Objeto: 



RET cc 

~T~ , 

1— I 1 1 1 "T 1 

1 1 cc cc cc 0 0 0 

I I I I 1 1 1— 



Exemplo: 

RET Z 



» i — i — i 1 1 r~ 

1 1 0 0 1 0 0 0 
I I I 1 1 i i ■ 



— ^ce 



onde cc identificaa condigao da flag a sertestada. Veja figura 1. 

Descrigdo: Se a condigao cc c verdadeira, recupera o enderego 
no Stack pela instrugao CALL e carrega no Program 
Counter (PC). A proxima instrugao executada sera a 
seguinte a instrugao CALL. Se a condigao e falsa, o 
Program Counter e incrementado normalmente e o 
programa continua na proxima instrugao. 




[ continua | 





Ciclos de aaquina (H) 


States (T) 


cond lgdo 
verdadeira 

condigao 
f a 1 sa 


3 

1 


11(5,3,3) 

5 



Flags afetadas: Nenhuma. 

Exemplo: Se a flag S, no registro F, esta setada, o conteudo do Pro- 
gram Counter (PC) e 3535H ; o conteudo do Stack Poin- 
ter (SP) e 2000H, o conteudo da posigao de memoria 
2000H e B5H e o conteudo da posigao de memoria 2001 H 
e 18H. Apos a exccucao da instrugao RET M, o conteudo 
do Stack Pointer sera 200 2H e o conteudo do Program 
Counter (PC) sera 18B5H. apontando para a proxima ins- 
trugao que sera executada. 

5 - Retorno de Interrupgao 

Formato: RETI ou RETN 

Operagdo: Estas instrugoes sao usadas ao fim de uma rotina de ser- 
vigo de interrupgao. Restauram o conteudo do Program 
Counter (PC) e voltam a execugao do fluxo normal do 
programa, a partir do enderego que estava sendo executa- 
do, quando foi provocada a interrupgao. 

Cddigo Objeto: 



RETI 



trugao RET. O estado do Flip-Flop IFF2 e copiado no 
Rip-Flop IFF1 para aceitar outra interrupgao de NMI. 

Ciclos de maquina (Mj : 4 

States (T): 14(4,4, 3, 3) 

Rags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Stack Pointer e 1000H e o conteudo do 
Program Counter e 1A45H, quando o sinal de uma inter- 
rupgao nao mascarada (NMI) e recebida, o microprocessa- 
dor ignora a proxima instrugao (completa a execugao da 
instrugao corrente) e provoca um restart para a posigao de 
memoria 0066H. lsto e, o conteudo corrente do Program 
Counter (PC) e colocado no Stack nas posigoes de memo- 
ria OFFFH e OFF EH, o Stack Pointer (SP) e atualizado 
para 0FFEH e o Program Counter e carregado em 0066H. 
Este enderego semprc contem uma rotina de servigo de 
interrupgao que deve tcrminar em RETN. Apos a execu- 
gao da instrugao RETN, o Program Counter (PC) e cane- 
gado com o conteudo do Stacie c o programa continua a 
ser executado em seu fluxo normal. 

6 - Restart 

Formato: RST P 

Operagao: Similar a uma instrugao CALL, com a excecao de que o 
operando nn e substituido pelo operando P, que define 
uma posigao constante de memoria para ser carregado no 
Program Counter (PC). 

Cddigo Objeto: 



RST P 

I I - » I 1 1 I "T " 

1 1 P P P 1 1 1 

1 i 1 1— 1 1 1 



Exemplo: 



RST 



i ! i 1 » ■ 't " -n — 

110 0 1111 
— .i_- a— i i i j i i 



CF 



onde P define o enderego para o desvio do programa. 



000 

001 para P = 
0 10 p * r « P = 
011 p 4 r 4 P = 
100 p 4 r 4 P = 
10 1 p4 r 4 P = 

110 p 4 r 4 P * 

111 p 4 r 4 P = 



enderego de 
enderego de 
enderego de 
enderego de 

enderego d c 

enderego de 
enderefo d ■ 



4 00H 

aeao r I 4 OSH 
■ eio r 1 4 1 0 H 

aeaorl4 18H 
ar ao r I 4 20H 

aeao r I 4 ? 8H 

aeao r I 4 30H 

aeaor 14 38H 



Descrigdo: O conteudo corrente do Program Counter (PC) e salvo 
no Stack e o enderego de memoria dado pelo operando 
P e carregado no Program Counter. O byte mais signifi- 
cative (MSB) do Program Counter e carregado com 
00H e o byte menos significativo (LSB) e carregado com 
o operando dado pelo operando P. 



1 


1 


1 


0 

1 1 


1 


— 1 
1 


r t 

0 1 


0 


r~“i 

1 


0 


0 


1 


1 1 

1 


I 1 

0 1 
1 L_ 



ED 



— ► AD 



RSI 1 OH ( SP 1 ) 4 PC 

(sp n 4 — pc i 




RETN 



1 


1 


1 

! i 


1 — 1 

0 

L 1 


1 


1 


0 


1 


1 

0 


1 


| ' 

0 


0 


0 


1 


1 1 

0 


1 



ED 

*5 



Descrigdo: A instrugao RETI e usada ao fim de uma rotina de servi- 
go de interrupgao para restaurar o conteudo do Program 
Counter (PC) - executa os mesmos procedimentos da ins- 
trugao RET - e assinala em um dispositivo de I/O que a 
rotina de interrupgao foi completada. Esta instrugao 
tambem rcsseta os Rip-Rops IFF1 e IFF2. A instrugao 
RETN e usada ao fim de uma rotina de interrupgao nao 
mascarada - executa os mesmos procedimentos da ins- 



Ciclos de maquina (M): 3 
States (T): 11(5, 3, 3) 

Rags afetadas: Nenhuma. 

Exemplo: Se o conteudo do Program Counter (PC) e 15B3H, apbs 
a execugao da instrugao RST 18H o PC ira corner 00 18He 
o topo do Stack 15B3H. A proxima instrugao executada 
se encontra no enderego 001 8H. ■ 



Amaury Correa de Almeida Moraes Junior 6 formado pelo curso de 
Analise de Sistemas da FASP, tendo feito diversos cursos de aperfeigoa- 
mento nas Jreas de Eletronica Digital e Microprocessadores e atualmen- 
te traba/ha na Area de microcomputadores para o City bank. 
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SINTA NOS DEDOS ESTA NOVA 

CONQUISTA 



Ja nao c prceiso eseolher. Agora \ oce cent o mierocompuiador IX i l I (XX). com desigi i moderno c novas 
i .ncorporavOcs quo lhc condu/ir So a dcci sao cc r i a . 

O DC IT- 1000 c modular e dependendo da suu ncccssidadc de sc evpundc ;Hc um grande sisiema. 




Uma das canaderistkas do DGT- 
1000 e a opcao para interface de 
video colorido. Esta interface the 
permits usarate 16 cores dife rentes 
no modo tnaiorde resoluedo grafka 
(256-' 1 92 pantos) . Voce ten i ainda 
eondif&es de movimentarno video 
ate 32 areas diferentes , 

A interface requerapenas o on 
umaTV colorida. 



Parser usado o padrao PA L/M 
edispensavel no caso da TV 
colorida, qualquermodifica^ao. 

ODGT-1000 i compativei em 
softwares hardware com o DGT ■ 
lOOelOl. 




RuaG&vea, ISO Balo HoriiOftte 
Tel.. (0311332.8300 Telex: 3352 
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2*7 Vttm&rfiriy: 4&66667S Hi Uo mitt 
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Este programs, para a I inha TRS-80 modelo I, mostra o que voce pode fazer 
com os recursos grificos de seu micro. Fapa uma "dobradinha" com eie\ 



Desenhe em perspectiva 



Jorge de Rezende Dantas 



N o artigo CAD: as possibilida- 
des do micro, publicado em 
MICRO SISTEMAS numero 
27 (dezembro de 1983), a - 
bordamos o aparecimento, o desenvolvi- 
mento e a importancia deste software 
para todas as atividades profissionais 
(ou de lazer) que envolvem projetos e 
desenhos, utilizando os recursos de re- 
solu 9 ao grafica dos microcomputadores. 

Pois bem. Desta vez apresentamos 
um exemplo de aplicafSo, urn programa 
que permite desenhar rerspectivas Cava- 
leiras. Este tipo de perspectiva temsuas 
peculiaridades: a) a parte da figura que 
estd de frente para o piano de proje^o 
e paralela a ele se projeta em suas di- 
mensOes reais; b) a parte da figura que 
6 perpendicular a este piano (no caso o 
video) se projeta nele em linhas a 45 
graus e tern suas dimensoes reais reduzi- 
das a metade. 

Este programa desenha, em perspec- 
tiva, volumes que sejam cubos ou para- 
lelepipedos, mas pode tamtam desenhar 
figuras planas (quadrado ou retangulo), 
linhas horizontais, verticais ou inclina- 
das a 45 graus, e pontos. 

0 sistema de coordenadas do DGT- 
100 ndo £ igual ao sistema de coordena- 
das convencional. No video do micro- 
computador, o eixo horizontal (dos Xs) 
come 9 a com o valor 0 (zero) d esquerda 
e aumenta para a direita, igual ao siste- 
ma convencional. Entretanto, o eixo 
vertical (dos Ys) come 9 a com o valor 
0 (zero) na extremidade superior e vai 



aumentando na dire 9 do oposta - no 
sistema convencional 6 exatamente o 
oposto. Nosso programa utiliza o con- 
vencional, isto 6, o valor 0 (zero) no 
eixo vertical do video estd na parte in- 
ferior deste. Ao usar o programa, tenha, 
pois, sempre em mente o sistema de co- 
ordenadas cartesianas convencional - 
ele serd compatibilizado com o sistema 
do microcomputador pelo prbprio pro- 
grama. 

A resolu 9 ao grdfica de 6.144 pontos 
apresenta como ponto um retangulo 
com o lado maior na vertical e o menor 
na horizontal. Assim, as linhas horizon- 
tais s£o mais espessas que as verticais. 
Por outro lado, se tivermos dois conjun- 
tos de dois pontos cada um e se as dis- 
tances em coordenadas entre eles fo- 
re m iguais, a distancia entre dois pontos 
na vertical aparecerd no video maior 
que aquela entre os pontos horizontais. 
Isto significa que, se defmirmos anali- 
ticamente um quadrado, ele aparecerd 
no video como um retangulo. Nosso 
programa corrige este problema multi- 
plicand© as coordenadas horizontais por 
2,38. Isto porque o ponto no video do 
DGT-100 tern o lado horizontal 2,38 ve- 
zes menor que o vertical, o que defor- 
ma as figuras se a corre 9 do ndo for feita. 

Com esta adapta^o, o maior valor da 
coordenada horizontal d de 53 (53 x 
2,38 = 126,14). A coordenada vertical 
tern seu valor mdximo igual a 41. Por- 
tanto, as figuras que voce vai desenhar 
estarao projetadas num piano de 53 po- 



si 9 fles horizontais por 41 verticais. Uma 
boa providencia sera, pois, arranjar um 
papel quadriculado e marcar nele estas 
dimensOes. 

0 video do DGT-100 possui 48 po- 
shes na vertical (resolu^do de 6.144 
pontos. N6s adotamos o limite mdximo 
de 41 pos^Oes porque reservamos as 
duas ultimas linhas inferiores para o dis- 
play de instrufOes. Elas, portanto, nZo 
afetarfo o espa 90 reservado aos dese- 
nhos. 

Ao rodar o programa, algum tempo 
ser d consumido com cdlculos e com o 
display de figuras. Assim que isto ter- 
minar, o microcomputador poderd reqe- 
ber novas instates. Voce saberd quan- 
do chegar o momento. Um ponto na 
parte inferior esquerda aparecerd piscan- 
do. Para dar continuidade , com introdu- 
ce de novas instru 90 es, tecle a barra de 
espa 90 . Se voce quiser deixar um dese* 
nho no video indefinidamente, 6 s6 ndo 
apertar a barra de espa 90 e o programa 
ficard em loop. 

DESCRigAO DO PROGRAMA 

Ao ser iniciado, o programa passara 
das linhas 5 e 10 para a 205. Aparecerd 
no video o nome do programa e o do 
autor (ndo se esque 9 a de nos fazer esta 
referenda ao digitar a linha 210). Ao fi- 
nal desta apresenta 9 do, o programa se 
desloca para a sub-rotina da linha 15. 
Um ponto ficard piscando no lado es- 



querdo inferior do video. Ao teclar a 
barra de espa 90 , o programa sai do loop 
e vocS vera aparecer o seguinte menu: 
1 -DESENHAR, 2-APAGAR PARTE, 
3-APAGAR TUDO. Eseoiha uma des- 
tas op95es. A segunda (voc£ verd um 
exemplo de seu uso mais d frente) ser- 
ve para apagar uma figura ou parte dela 
quando existe mais de uma no video, 
permitindo fazer uma corre^o ds vezes 
necessdria. A terceira apaga fodo o vi- 
deo para recome 9 ar outros desenhos. 

No caso das op^es 1 e 2, a instru- 
Co seguinte d COMPRIMENTO?. Voce 
deverd entdo digitar o comprimento (ta- 
manho horizontal) da figura. O progsar 
ma verificard se este comprimento 6 
maior que 53. Se for, aparecerd o co- 
mentario PARAMETRO INCOMP ATI- 
VEL e sera novamente solicitada a espe- 
dficaCo do comprimento. Esta avalia- 
qSo de diferentes parametros de entrada 
visa a evitar que a figura tenha dimensQes 
que ndo caibam no video, o que acarre- 
taria um erro de overflow. 

Em seguida, deve-se informar a AL- 
TURA (lembre-se de que ela ndo poderd 
ser maior que 41). A especifica 9 do se- 
guinte 6 PROFUNDIDADE. Se ela im- 
plicar em dimensOes nlo compativeis 
com a area do video, o programa retor- 
nara a linha 245, come 9 ando novamente 
com o COMPRIMENTO. Voce poderd 
entfo reespecificar as duas primeiras di- 



mensOes da figura, ou ent£o mant^-las, 
alterando a PROFUNDIDADE. 

Finalmente, sera solicitada a coorde- 
nada X do vdrtice 1 da figura, assim co- 
ma a coordenada Y. O vdrtice 1 sera 
sempre o da extremidade inferior es- 
querda da figura, seja ela um volume, 
um quadrado, um retangulo ou ainda 
uma linha. 

Estas coordenadas poacionarSo a fi- 
gura no video e, como no caso dos para- 
metros anteriores, serfo tamtam verifi- 
cadas, sen£o provocarfo um erro de 
overflow. Se isto acontecer, aparecerd 
antes a mensagem PARAMETRO IN- 
COMP AHVEL. e. vo oL porkxa novamen- 
te indicar as coordenadas do v^rtice 1 

Se tudo correr bem, a figura deseja- 
da aparecerd no video e o ponto do lado 
esquerdo inferior voltara a piscar. Te- 
clando a barra de espa 90 , o programa 
volta a linha 220 e voce podera come 9 ar 
de novo com uma das op9<5es do menu 
inicial: 1 -DESENHAR, 2-APAGAR 
PARTE, 3-APAGAR TUDO. Se for es- 
colhida a primeira, outra figura podera 
ser desenhada, aparecendo no video jun- 
to com a anterior, e assim sucessivamen- 
te. 

POR ETAPAS 

Agora vamos a uma aplicaCo prdtica. 
Antes, por£m, serd necessdrio digitar o 
programa. Preste muita atenCo ao fazer 
isto, pois, se for cometido um erro co- 



mo esquecer um ponto e virgula (;), se 
voce trocar os nomes das varidveis ou 
copiar errado o numero de uma linha 
numa instru 9 §o GOTO ou GOSUB, o 
programa nao fmraonara coma deve e 
alguns destes enganos ndo farSo aparecer 
uma mensagem de erro (como no caso 
do esquecimento de um parentese), tor- 
nando dificil achar onde o erro foi co- 
metido. 

O nosso exemplo de aplica^o se 
compord de 12etapas: 



Etapa 1 

• escolha a op 9 §o 1 , DESENHAR 

• espedfigue a comprimentn igual a. 14 

• altura igual a 20 

• profundidade igual a 14 

• coordenada X do vdrtice 1 igual a 20 

• coordenada Y do v^rtice 1 igual a 14 

Aparecerd no video um paralelepi- 
pedo em perspectiva. Espere o ponto do 
canto do lado esquerdo inferior piscar e 
tecle a barra de espa 90 . 



Etapa 2 

• op 9 ao 1 • profundidade 14 

• comprimento 14 • X= 10 

• altura 14 • Y=4 



Agora aparecerd no video um cubo 
na frente do paralelepipedo. Parte do 
desenho da primeira figura estd pene- 
trando a drea da segunda. Isto pode ndo y> 
ser desejdvel - vamos ent£o corrigir. 



N0SSA PR0XIMA EDIQA0 IRA 
AGRADAR A GREG0S E TR0IAN0S! 

Temos certeza que voci ird gostar do numero 31 de MICRO 
SISTEMAS, edigao de abril, pois ele tem de tudo para todos. D8 sd uma 
! olhada nesta privia: 



• Programas de aplicagao domdstica: 

• Controle de despesas 

• Orgamento domistico 

• Minieditor de textos 

• CUcuio do ciclo firtii da mulher 



• Artigos gerais: 

• Precisao de calculos em BASIC 

• Como manipular os bits 

• Otimizagao de programas em BASIC 



• E ainda: virios programas na irea de Matematica e, para relaxar, um 
emocionante jogo de Batalha Naval para a linha Sinclair. 



Para os rac/ioamadores tambdm tem. A Rod ad a MS apresenta 

o Professor Picapau, programa de Roberto Quito 

de Sant' Anna para aprendizagem e treinamento de te/egrafia. 



/Micro 
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DESENHE EM PERSPECTIVA 



Etdpd 3 

• opcao 2, APAGAR PARTE 

• comprimento 14 

• altura 14 

• profundidade 14 
.• X= 10 

• Y=4 



Voce apagou a segunda figura, o 
cubo Vamos agora apagar as partes da 
primeira que estavam dentro do cubo. 


Etapa 4 






• opcao 2 


• 


profundidade 0 


• comprimento 0 


• 


X=20 


• altura 1 1 


• 


Y = 14 


Etapa 5 






• opcao 2 


• 


profundidade 0 


• comprimento 1 1 


• 


X=20 


• altura 0 


• 


Y=14 



As linhas do paralelepipedo que esta- 
vam dentro do cubo foram apagadas. 
Preste atencao no seguinte: uma figura 
sem compnmento e profundidade e s6 
com altura e uma linha vertical; uma fi- 
gura sem altura e profundidade e so com 
comprimento e uma linha horizontal. 
Quando a op$ao 2 foi feita.o programa 
dirigiu-se para a sub-rotina da linha 50 
que resseta , ou seja, apaga a figura cor- 
respondente. Vamos agora redesenhar o 
cubo. 



voce e seu 
micro 



3SSS -Sff 



Um reladonamento assim merece 
um programa exclusivo. 

• A Informatic Service desen- 
volve programas conforme 
suas necessidades. 

• Presta-lhe total assistencia 
atrav£s de uma Assessoria 
de Sistemas exclusiva. 

• Promove a relapao 
Homem - Software - Mdquina 

de forma perfeita. 0 

i 

Consulte-nos ainda hoje. 5 

IN FORMA TIC SER VICE DO 

BRASIL 

Av. 13 de Maio, 47 - grupo 2707 
fone: (021) 262-8769 - RJ 



Perspectivas Cavaleiras 

5 CLS 

10 GOTO 205 

15 A$=INKEY$ : IF A$=" " THEN RETU 
RN 

20 SET(0,43) :GOSUB 35 
25 RESET(0,43) :GOSUB 35 
30 GOTO 15 

35 FOR T=0 TO 25 : NEXT : RETURN 
40 PRINT@896,CHR$ ( 30) ;: PRINT: PRI 
NT<§>897, " " ; : RETURN 
45 SET ( ( A*2 . 38 ) , (41 -B) ) : RETURN 
50 RESET ( (A*2. 38) , (41-B) ): RETURN 
55 CLS: RETURN 

60 GOSUB 40: PRINT "PARAMETRO INC 
OMPATIVEL" ; :GOSUB 15: GOSUB 40: RE 
TURN 

65 A=A1 : IF B2>B1 THEN S=1 ELSE S 
=-l 

70 FOR B=Bl TO B2 STEP S 
75 ON D GOSUB 45,50 
80 NEXT .-RETURN 

85 B=B1 : IF A2>A1 THEN S=1 ELSE S 
=-l 

90 FOR A=A1 TO A2 STEP S/3 
95 ON D GOSUB 45,50 
100 NEXT: RETURN 

105 IF A2>A1 THEN S=1 ELSE S=-l 
110 FOR A=Al TO A2 STEP S/3 
115 B= ( ( (B2-B1) / (A2-A1) ) * (A-Al) ) 
+B1 

120 ON D GOSUB 45,50 
125 NEXT: RETURN 

130 X ( 1 ) =XE : X ( 2) =X (1) : X ( 5) =X ( 1) : 

X (6) =X ( 1) 

135 X ( 3) =X (1) +C: X ( 4 ) =X (3) :X(10) a 
X ( 3) :X (11) =X (3) 

140 X (7 ) =X (1) +P/2 : X (8) =X (7 ) +C : X ( 
12) =X (8) : X ( 9 ) =X ( 8 ) 

145 Y ( 1 ) =YE :Y(4)=Y(1) s Y ( 5 ) =Y ( 1 ) : 

Y (10) =Y (1) 

150 Y ( 2 ) =Y ( 1 ) +H : Y ( 6 ) - Y ( 2 ) : Y ( 3 ) =Y 
(2) :Y(11)-Y(2) 

155 Y ( 7 ) =Y ( 2 ) +P/2 : Y ( 8 ) =Y ( 7 ) :Y(12 
) =Y (7) 

160 Y ( 9) =Y (1) +P/2 : RETURN 

165 FOR N=1 TO 11 

170 Al=X(N) :A2=X(N+1) :B1=Y(N) :B2 

-Y (N+l ) 

175 IF A1=A2 THEN GOSUB 65 ELSE 
185 

180 GOTO 200 

185 IF Bl=B2 THEN GOSUB 85 ELSE 
195 

190 GOTO 200 
195 GOSUB 105 
200 NEXT: RETURN 
205 PRINT CHR$ (23) 

210 PRINT@256, "PERSPECTIVA" :PRIN 
T " CAVALE I RA " : P RI NT : P RI NT " P ROGRAM 
A DE" : PRINT "JORGE R. DANTAS" 

215 GOSUB 15.-CLS 
220 CLEAR 

225 GOSUB 4 0 : INPUT" 1-DESENHAR, 2 
-APAGAR PARTE, 3 -APAGAR TUDO";D 
230 IF D=3 THEN GOSUB 55 ELSE 24 
0 

235 GOTO 220 

240 GOSUB 40 : DIM X(12),Y(12) 

245 INPUT "COMPRIMENTO" ;C 
250 IF 053 THEN GOSUB 60 ELSE 2 
60 

255 GOSUB 40 :GOTO 245 
260 GOSUB 40: INPUT "ALTURA" ;H 
265 IF H> 41 THEN GOSUB 60 ELSE 2 
75 

270 GOTO 260 

275 GOSUB 40 : INPUT"PROFUNDIDADE " 
;P 

280 IF C+P/2>53 OR H+P/2>41 THEN 
GOSUB 60 ELSE 290 
285 GOSUB 40: GOTO 245 
290 GOSUB 40: INPUT "COO RDEN ADA X 
DO VERT ICE 1" ;XE 
295 GOSUB 40: INPUT "COORDENADA Y 
DO VERTICE 1 " ; YE 
300 T=XE+C+P/2 : V=YE+H+P/2 
305 IF T>53 OR V>41 THEN GOSUB 6 
0 ELSE 315 
310 GOTO 290 

315 GOSUB 4 0 : GOS UB 130:GOSUB 165 
320 GOSUB 15 :GOTO 220 



Etapa 6 

• op^ao 1 • profundidade 14 

• comprimento 14 • X=10 

• altura 14 • Y=4 

Agora sim: voce tern o cubo na fren- 
te do paralelepipedo sem que as figuras 
se interpenetrem. Vamos entSo desenhar 
figuras planas. 

Etapa 7 

• opcao 1 • profundidade 14 

• comprimento 14 • X=30 

• altura 0 • Y=4 

Etapa 8 

• opcSo 1 • profundidade 14 

• comprimento 0 • X=1 

• altura 14 • Y=4 

A etapa 7 desenhou um quadrado em 
perspectiva na horizontal (altura =0) e 
a etapa 8 um quadrado na vertical (com- 
primento =0). Vamos agora desenhar li- 
nhas. 



Etapa 9 






• opcao 1 


• 


profundidade 0 


• comprimento 14 


• 


X=1 


• altura 0 


• 


Y=34 


Etapa 10 






• opcao 1 


• 


profundidade 0 


• comprimento 0 


• 


X=44 


• altura 14 


• 


Y=23 


Etapa 11 






• opcao 1 


• 


profundidade 20 


• comprimento 0 


• 


X=40 


• altura 0 


• 


Y=14 



Estas etapas (9, 10 e 1 1) desenharam, 
respectivamente, uma linha horizontal, 
uma vertical - ambas paralelas ao piano 
de projecao (o video) - e uma linha dia- 
gonal, que € a projecao de uma linha 
perpendicular ao piano de proje^o. 
Lembre-se de que. neste ultimo caso, o 
tamanho da linha no video sera igual a 
metade da profundidade. Portanto, 
quando voce quiser um certo tamanho 
no video, defina como profundidade o 
dobro dele. 

Finalmente a etapa final desenha um 
ponto, uma figura que nao tern compri- 
mento, altura e nem profundidade. 

Etapa 1 2 

• op^ao 1 • profundidade 0 

• comprimento 0 • X=49 

• altura 0 • Y=32 

Agora, para fazer seus proprios dese- 

nhos, tecle a barra de espaijo e escolha a 
opcao 3-APAGAR TUDO. Boa sorte! — 

& 



Jorge de Rezende Dantas 4 arquiteto urbanis- 
ta, doutor pela Universidade de Paris / e pro- 
fessor livre docente de Arquitetura e Urban is- 
mo da Universidade de Sao Paulo — PAUUSP. 
Vem rea/izando pesquisas no campo de mode - 
los urbanos e software aplicativo para as areas 
de Arquitetura e Urban ismo. 
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Para quern utiliza graficos demonstrativos para analise de frequencia, 
um programa que gera um histograma nos micros da linha Sinclair 



Histograma: 
examine resultados 

Luis Peres Azevedo 



F reqiientemente necessitamos a- 
nalisar dados recolhidos de uma 
amostra a fim de verificar se a 
distribui^ao se aproxima de 
uma distribuicao normal ou n£o. Como 
exemplo, podemos citar os erros de me- 
dida de uma determinada peca fabrica- 
da em serie, as notas de uma turma de 
alunos etc. 

Para isto, podemos lan 9 ar mfo do 
histograma, no qual plotamos a variavel 
no eixo das abscissas e a frequencia 
dela no eixo das ordenadas. Evidente- 
mente, os valores assumidos pela varid- 
vel devem ser agrupados em classes, por 
exemplo: as notas de 3,5 a 4,5 sao agru- 
padas num unico retangulo do histogra- 
ma. 

As aplicac<5es de um histograma s£o 
as mais variadas possiveis. fiustrando 
uma delas, trazemos aqui um programa 
que foi idealizado, em principio, para 



100 REM HISTOGRAMA 
105 FAST 

110 PRINT "NUMERO DE NOTAS: "; 
112 INPUT TN 

114 PRINT TN, ,, 

115 DIM X (TN) 

120 FOR 1=1 TO TN 

122 IF I>20 THEN SCROLL 

125 PRINT "NOTA ";I; ":";TAB 9? 

126 INPUT X(I) 

127 IF X(I)>10 THEN GOTO 126 

128 PRINT X(I) 

129 LET X ( I ) =INT (X(I)+0.5) 

130 NEXT I 

140 FOR 1=1 TO TN 
150 LET CH=0 
160 FOR J=1 TO TN-1 
170 IF X(J)>X(J+1) THEN GOSUB 9 
000 

175 NEXT J 

180 IF CH=0 THEN GOTO 190 
185 NEXT I 
L90 CLS 

200 GOSUB 8000 



notas de alunos, o qual roda nos equipa- 
mentos da linha Sinclair. Podemos tra- 
balhar com at6 1 50 notas, e o programa 
fomece a m^dia da turma e o desvio 
padrSo da mesma. 

Inicialmente, as notas sSo colocadas 
em um array X(I) e, logo apos, ordena- 
das de 0 a 10. A linha 129 arredonda as 
notas, agrupando-as em classes, e a linha 
205 dimensiona a varidvel indexada 
C(TN) em funcao dos TN alunos - esta 
varidvel e incrementada cada vez que 
encontramos notas iguais (linha 220 ). 

Na linha 230 e gerado um retangulo, 
construido com a funcao PLOT. A par- 
tir da linha 240 , £ calculada a mddia da 
distribuicao e, na linha 320 £ calculado 
o desvio padrSo, atravSs da seguinte for- 
mula: 




205 DIM C (TN) 

210 FOR 1=1 TO TN 
215 FOR J=I+1 TO TN 
220 IF X(I)=X(J) THEN LET C(I)= 
C(I)+1 
225 NEXT J 

230 PLOT 4+(X(I) *100/24.5) ,C(I) 
+2 

235 NEXT I 
240 LET Y=0 
250 FOR 1=1 TO TN 
260 LET Y=Y+X ( I) 

270 NEXT I 
280 LET Y=Y/TN 

290 PRINT AT 0,10; "MEDIA: "jY 
300 LET DP=0 
310 FOR 1=1 TO TN 
320 LET DP=DP+ ( (ABS (X(I)-Y))** 
2) *C (I) 

330 NEXT I 



onde x 6 a nota, X 6 a media, f e a fre- 
quencia e n o numero de notas. 

A sub-rotina que come 9 a na linha 
$000 gera os eixos, marcados de 0 a 10 
na horizontal e graduados de 5 em 5 
na vertical. Ja a que come 9 a na linha 
9000 S uma auxiliar da ordena 9 fo das 
notas (sub-rotina de troca). 

Voce poderd modificar o programa 
facilmente, adaptando-o para casos es- 
pecificos. Para arquivar os dados, basta 
digitar S (neste caso, para restaurar o 
programa sem a perda dos dados, utili- 
ze LOAD “HISTOGRAMA”). Para lim- 
par o arquivo e plotar outro histograma, 
pressione ENTER ou NEWLINE. 

Luis Peres Azevedo 6 engenheiro eletricis - 
ta pela UFRJ desde 1979 e professor univer- 
sit&rio de Computagao e de Eletronica. £ 
tamb6m um dos dirstores da Microid6ia Sis- 
temas, EducagSo e Inform&tica Ltd a. 



335 LET DP=SQR (DP/TN) 

340 PRINT AT 1,2; "DESVIO PAD RAO 
: " ; DP 
350 STOP 

8000 FOR 1=2 TO 43 

8005 PLOT 2,1 

8010 NEXT I 

8030 FOR 1=2 TO 47 

8040 PLOT 1,2 

8050 NEXT I 

8060 FOR 1=0 TO 9 

8070 PRINT AT 21,I*2+2;I 

8080 NEXT I 

8090 PRINT AT 21,22;10 

8100 FOR 1=7 TO 43 STEP 5 

8110 PLOT 1,1 

8120 NEXT I 

8150 RETURN 

8200 STOP 

9000 LET V=X(J) 

9005 LET X(J)*X(J+1) 

9010 LET X(J+1)=V 
9015 LET CH=1 

9020 RETURN 9 
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FICCAO 



Numa sala de aula do futuro, 
um ironico inspetor repreende seus alunos... 



Bronca cibernetica 

Luiz Bessaf *) 



eus distintos e esti- 
mados alunos, antes 
de come9armos nos- 
sas aulas de hoje,gos- 
taria de Ihes transferir o recado envia- 
do pelo nosso diretor: 

Cada um desses consoles individuals 
representa a pressuposta ponte que liga 
a maravilha tecnica do Banco de Dados 
de todo o conhecimento humano com 
outra maravilha da natureza, que e a 
maior aproxima^ao teorica e pratica do 
vacuo absoluto, e os senhores sabem 
exatamente a que me refiro. Tenho 
ate a impressao de que, quando Sa- 
muel Beckett, o ilustre irlandes, escre- 
veu que “tua mente, nunca muito ati- 
va em tempo algum, o esta agora mui- 
to menos do que nunca”, estava com 
voces na mente e no coraipao. 

No tempo dele, os alunos sentavam- 
se em carteiras ou bancos escolares e 
eram obrigados a escrever tudo sem 
qualquer recurso audiovisual e contan- 
do somente com livros e cademos de 
apontamentos. Hoje, no lugar de car- 
teiras , os senhores possuem computa- 
dores e nao mais e preciso trazer livros 
ou cademos de casa, ja que todas as 
anota^oes sio feitas em meio magnetico 
entre os terminals da escola e o domes- 
tico. Eventualmente 6 necessdrio trans- 
portar um trabalho, mas isto 6 feito 
em disquinhos de 1 Megabyte nao 
maiores que moedas. 

O disco desta semana, aldm de 
todo o material didatico 
auxiliar incluindo avisos, re- 
comendaijoes, exercicios so- 
bre linguagem, ainda inclui um dicio- 
nario mitologico, a Odiss 6 ia do velho e 
bom Homero, belamente comentada, o 
Ulisses de Joyce, criticas e anota9oes, 



li^oes de solfejo para a turma B de 
Musica e cinco aulas de Alemao, onde 
os senhores verao de novo a popular 
Frau Bertha fazendo biquinho em 
close todas as vezes que pronuncia um 
U tremado. 

Na vida, no entanto, tudo tern seu 
pre^o. E cada aparelho destes, embo- 
ra doados a comunidade, custa uma 
permanente pequena fortuna para in- 
crement e manuten9ao. Assim, seria 
de se esperar que os senhores tratas- 
sem seus terminals com mais carinho. 
Carinho, gratidao e respeito, pois foi 
atrav^s deles que aprenderam tudo o 
que se supoe que sabem, desde o curri- 
culo formal — e este eu ponho em du- 
vida — ate toda a sorte de inconfessa- 
veis patifarias representadas pela fabu- 
losa quantidade de culture altemati- 
va que conseguiram armazenar ate 
hoje. 

stes instrumentos, e bom lem- 
brar, sao propriedade da escola 
e, portanto, Coisa Publica, 
assim como os terminals do- 
mesticos em que deveriam ser feitos os 
trabalhos de casa. Eu acho que os se- 
nhores ainda nao conseguiram fazer a 
mais leve ideia do que significa o custo 
de tudo isto, especialmente as carissi- 
mas telas holograficas coloridas de alta 
resolu9ao. 

Ocorre, lamentavelmente, que nesta 
sala, e somente nesta sala, em apenas 
uma semana, foi preciso substituir 
quatro tubos queimados sem qualquer 
possibilidade de recupera9ao. 

Assim, meus diletos e dedicadissi- 
mos anjos, acho extremamente reco- 
mendavel ouvir o conselho deste velho 
inspetor. Se optarem pela negativa, 
o primeiro patife que for apanhado 



acendendo o cigarro usando a tela em 
luminosidade maxima com aquele pro- 
graminha CAD de Fisica pare desen- 
volver lentes biconvexas de Frenel, 
vai se dar muito mal. No menu que 
pessoalmente preparei para o infeliz, 
hi duas semanas de suspense, blo- 
queio de todas as atividades de lazer 
do terminal domestico e exames medi- 
cos e psicologicos para os fumantes. 

, para nao perder o prestigio 
de carrasco e outras adjetiva- 
9oes de uso menos familiar 
com que os senhores distin- 
guem a mim e alguns dos meus familia- 
res mais proximos, enviarei para os res- 
pectivos papaizinhos as contas das pe- 
9as repostas, mao-de-obra e os recibos 
dos medicos e psicologos. Todos os 
recibos, incluindo os destes dois ulti- 
mos profissionais e que costumam ser 
bastante salgados, serao emitidos pelo 
programa NDIR, o muito apreciado 
Nao Dedutivel do Imposto de Renda , 
que todos os pais adoram receber. 

Agora, depois desta confratemiza- 
9ao, eu vou confratemizar com a tur- 
ma da sala ao lado e os senhores terSo 
sua aula de Estrutura9ao Analitica das 
Linguagens, com ADA para o prato 
do dia. E uma ultima coisinha : o engra- 
9adinho que trocar o nome da filha 
de Lord Byron, de Ada para Linda 
Lovelace, ainda vai receber um premio 



(•JLuiz Bessa 6 o pseuddnimo hterdrio do 
professor Amdlio Pinto Ribeiro, livre docen- 
te em Angiologia pela UFRJ e diretor de 
publicaQoes da Sociedade Bra si lei ra de An- 
giologia. O Dr. Am6lio trabalha com compu- 
tadores desde 1980 e possui tris microcom- 
pu tad ores. 
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SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 



Discos Magneticos 5 Mb. 16 Mb. 80 Mb etc 
Diskettes 5 1/4, e 8 Poiegadas — Simples e Dupia Face 

ETIQUETAS PIMACO - PIMATAB 



• Fita Magndtica: 600. 1 200 e 2400 P6s 

• Fita CARBOFITAS p/lmpressoras: Globus M 200 - B 300/600 

• Fita p/lmpressoras. Elebra. Digilab. Diablo, Centronicetc. 

• Cartucho Cobra 400 

• Pastas e FormuldriosContinuos. 



AV PRESIDENTE VARGAS. 482 - GR 207 - TELS (021) 263*5876 - 253-1120 - RJ 
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NOVO CP 300 PROL0GICA. 




Com pa live I com 
prog ram as em llta 
c assets ou em dtsco. 



Agora, na hora de escolher entre um Rode ser ligado ao seu^parelho de TV, da 

microcomputadcr pessoal simples, de facil mesma lorma que no terminal de video 
maneto e um sofisticado microcomputador de uma grande empresa. 
prolissional. voce pode licar com os dois. Com o CP 300 voce pode 

Porque chegou o novo CP 300 Proldgica. fazer conexdes lelefdnicas 

0 novo CP 300 tern prego de . para coleta de dados, 

microcomputador pequeno. Mas memoria ' Vi se utilizar Inge 
de microcomputador grande. de uma Ijd^Kl 

tie ja nasceu com 64 V ■ impressora 
^ kbytes de memoria e ainda dispor de todos 

r ■■■ interna com f os programas exisientes 

i. possibilidade de para o CP 500 ou o 

expansao de memo- 
ifctf ria externa para ate 
r quase 1 megabyte 
E tern um teclado prolissional. 
que da ao CP 300 uma versatilidade incnvel. 
tie pode ser utilizado com programas de 
lita cassete, da mesma manetra que com 
programas em disco. ^)||||E33 

O unico na suaiaixa que 
nasce com 64 kbytes de memoria. 



Podt ser ilgatPo 
a um televisor comum 
ou a um sofisticado 
terminal de video. 



TRS-80 americano E o que e melhor: 

' voce eslara apto a operar qualquer 
ouiro sislema de microcomputador. 

Nenhum outro microcomputador pessoal 
na sua laixa tem tantas possibilidades de 
expansao ou desempenho igual 
CP 300 Proldgica. 

Osoutrosnao mam rroLOGICA 

wBITi 0 QLI6 6l£ faz. iTHOOCOrriputdcky^ 

pelo prego que ■■ 
ele cobra. 



P Drift ter 
acDpiade a uma 
IrnpresiQrs 
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TK S3 



TrzsrrrrkTnr 



O TK &3 16 emim xi moil de 2 m/IMts do pe*soas 
Eh 6 rmjita fdcit de oporar U*o a flaiic, e a memdria cheg a 
oM 64 Kbyte*. eat&lta monitor, rfmpmssoraefoyiHrk 
Num instant# i/oci§ vaf es>£*r reso/vendaproblorno 
pfogmrritirido au venc&ndo as rrtufJos fogos dtsponh 
TK 63 ad o 0 s 6 a mofhor ^nJdocBo. Tomb#m 6 o mats d* 



Aqui voc& ja aplica 
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TK2000m^ 



Aqu/ voce most - 
tudooquesabi 

O TK 2000 Color tom lodo quo os 
melhoras micros t$m Menas opcode 

Ac&Hq dts keft&. tmpressora (j6 v«m ra 

Jnferfote^ o(to rmolusdo g r6f fro 6 com 
podendo sor Jfgado oo sou TV colored* 
ou P8B Tmn 64 k de memdcio PAM r* 

16 fc d# momdr/a ROM Coni oxcotaftte 
software di&oonfvei 

Voc6 potie mostrar fucfo a que sab 
Sem praclsat mosfror m vita dtaheifio* 

w 2r 
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